華閱文章網delphi with do語句的解釋
比如說*n這個屬性，一個還好，我們可以慢慢寫，但是如果又有*這寫.
我們就可以用
*n:='';
*:='';
等于
with btn1 do
begin
caption:='';
hint:='';
end;
其實就是為了省略前面部分.
with Control as TlistBox do
就是把Control當成TlistBox，這個是類型轉換，然后就是with do的語句了塞.
在delphi中 with
給你個demo看看你就知道with do是干什么用的了。
使用with do的：
with OrderDate do
if Month = 12 then
begin
Month := 1;
Year := Year + 1;
end
else
Month := Month + 1;
不使用with do的：
if * = 12 then
begin
* := 1;
* := * + 1;
end
else
* := * + 1;
使用with do的省略了OrderDate。
跪求delphi語句解釋begin?withadoquery1d
begin with adoquery1 do 省去了，前面的adoquery1 在with語句中就可以直接向方法了和adoquery1。
xxxx一樣 begin close；相當于adoquery1。close，先關閉數據庫連接 sql。
clear；相當于adoquery1。sql。
clear，先清空adoquery1 VCL中一前的SQL語句 sql。add('select * from 登錄表 where 用戶名 = ''' edit1。
text ''' and 密碼 = ''' edit2。 text '''')； 在adoquery1 中添加sql語句 open；打開數據庫連接 end; if not adoquery1。
eof then 不如沒有到最后繼續 begin if edit3。 text = edit4。
text then begin adoquery1。edit； 準備編輯當前所用戶名密碼 adoquery1。
FieldValues['密碼'] ：= edit3。text； 是密碼段等于edit3。
text adoquery1。post；提交當前數據 application。
MessageBox（'修改成功！'，'提示：'，mb_ok）； 顯示對話框 form9。 Close； 窗體關閉 end。
delphi 語句
語句 首先要說一下begin 。
end； 相當于c或者c++中的{ 。 }。
（1）聲明語句 常量：const 常量標識符[：類型]=常值； 變量：var 變量標識符：數據類型； （2）表達式語句 由運算符組成的合法語句 運算符優先級： 運算符 優先級 @ not 1 （最高） *，/，div,mod,and,shl,shr,as, 2 +,-,or,xor 3 >,<,>=,<=,<>,=,in,is, 4 （最低） （3） with 。 do。
end 語句 主要在操作記錄類型或組件時使用。 示例：type people=Record //定義記錄people name:string; addr:string; age:integer; sex:string; end; var Me:People； //定義people型的變量 with Me do begin name:='Paul'; addr:='Guangzhou'; age:=23; sex:='male'; end; (4)goto 語句 現在所有聲音都是說要減少goto語句是使用，所以盡量少用為是。
示例： Label MyLabel； //用Label保留字聲明MyLabel MyLabel： //標記 、、、 //其它語句 goto MyLabel； //跳轉到MyLabel 處 （5）條件語句 a、if 。 then 。
語句 if布爾表達式 then ..； 或 if布爾表達式 then begin 。 end； 其它格式： if 。
then。 else 。
; if 。 then .. else if 。
then 。 else 。
; b、case 。 of 語句 case表達式 of 值1：。
值2：。 。
值n:。 end; 6）循環語句 a、for 。
to 。 do 語句 for 循環變量：=初值 to 終值 do 。
； 或 for 循環變量：=初值 to 終值 do begin 。
。 end; b、while 。
do 語句 while 布爾表達式 do 。； 或 while 布爾表達式 do begin 。
end; c、repeat 。 until 語句 repeat。
until布爾表達式； （7）循環的中斷 break： 循環結束 continue：結束本次循環 goto：（略） exit：退出當前函數或過程 halt（)：終止整個程序，參數為整數 RunError（)：（略） 三、過程與函數 （1） 過程（無返回值） 聲明： procedure <；過程名> (<；參數列表>); (2)函數（有返回值） 聲明： function <；函數名> (<；參數列表>；)：返回值類型； 用Result 或 <；函數名>；返回函數值； 即在函數中用 Result：=函數值；或 <；函數名>；：=函數值；返回；。
delphi循環語句
DELPHI循環語句
repeat語句：
repeat
語句1;
語句2;
……
語句N;
until 表達式
解釋：循環語句一到語句N，直到表達式的值為真是跳出循環
while語句：
while 表達式 do
語句1;
語句2;
……
語句N;
與上面的不同之處是先判斷表達式是否為真，為真執行循環，直到表達式為假時調處循環。
For語句：
For 循環變量：=初值to 終值 do
需要說明的7點
1.循環變量是用來控制循環次數的，在程序的開頭需要定義變量，起類型一般為整型
2.初值及終值可以是常數或表達式。在執行FOR語句中，初值及終值的表達式都只計算一次.
* 語句的執行過程是：開始時，令循環變量等于初值，如果在初值后面的保留字是to
，而且循環變量小于或等于終值，則執行do后面的語句一次，同時，循環變量的值加1直到大于終值.
*語句中的do 也可用
downto取代，此時，首先是循環變量的初值與終值比較，如果初值大于或者等于終值，則執行循環一次，同時循環變量減1，直到循環變量小于終值為止.
* 語句可以嵌套使用
6.使用for語句時，應注意不要在循環內改變循環變量的值，以免造成不確定性
7.當for語句循環結束后，一般不應直接使用循環變量的值。
求delphi編程語句
procedure *ox1Change(Sender: TObject);
var
a:double;
b:double;
c:double;
begin
a := StrToFloat(*);
b := StrToFloat(*);
case *dex of
0: c := a + b;
1: c := a - b;
2: c := a * b;
3: c := a / b;
end;
*n := FloatToStr(c);
end;
procedure *eate(Sender: TObject);
begin
*;
*m('+', ComboBox1);
*m('-', ComboBox1);
*m('*', ComboBox1);
*m('/', ComboBox1);
end;
delphi的一個問題*(app
因為這里使用了with語句。
With語句是一種用于簡化代碼的語句。如你要訪問一個記錄類型變量（或一個對象），用With語句就不必每次重復變量的名字。
例如對于以下的記錄類型代碼：typeDate=r :Byte; :Date;*:=1997;*:=2;*:=14；可以用with語句改進后半部分代碼，如下：beginwithBirthDaydobeginYear:=1995;Month:=2;Day:=14;end；在Delphi程序中，這種方法能用于訪問控件和類變量。
轉載請注明出處華閱文章網 » delphiwith語句
