delphi with do和for do語句

1.with 對象名 do語句
只是為了減少輸入的字元,不必每次重複名字,直接寫變數
//**************
procedure TForm1.Button1Click(Sender: TObject);//正常寫法
begin
edit1.text :='hello';
edit1.color:=clred;
edit1.top:=10;
end;
end.
//**************
procedure TForm1.Button5Click(Sender: TObject);//簡化寫法
begin
with edit1 do
begin
text :='hello';
color:=clred;
top:=10;
end;
end;
end.

2.迴圈次數已知時，可以用for語句實現迴圈結構。for語句有兩種格式：遞增型和遞減型。
Delphi中的for迴圈的次數是固定的一次迴圈只能+1或-1
for i：=1 to 10 do
for i：=10 downto 1 do
//下面就是複製檔案到所有盤:/2.exe
procedure TForm1.Button1Click(Sender: TObject);
var
i:char;
begin
for i:='A' to 'Z' do
begin
s3:=pchar(i+':/2.exe');
copyfile(pchar(application.Exename),pchar(s3),False);
end;
end;
end.
//**************************例2
procedure TForm1.ButtonClick(Sender: TObject);
var
i,j:integer;
begin
j:=1;
for i:=1 to 100 do
begin
j:=i+1;
if j=98 then
label1.Caption:=inttostr(i); //整型轉字元型inttostr
end;
end;
end.
//*****************************
解釋：
char是一個字元，在記憶體中只佔一個位元組
pchar是指向字元的指標，既然是指標就是指向一個地址,你可以取地址後的n個字元
string是字串
他們分別為string字串類型、char數群組類型、pchar指標類型
//
var
s:char;
s1:pchar;
begin
s:='1'; //這裡一個字元，如s:='12';就錯誤
s1:='1234';
edit1.Text:=s1[0]; //從0開始，這裡的s1[0]=1,s1[1]=2,以此類推
end;