1.with 对象名 do语句只是为了减少输入的字符,不必每次重复名字,直接写变量//**************procedure TForm1.Button1Click(Sender: TObject);//正常写法beginedit1.text :='hello';edit1.color:=clred;edit1.top:=10;end;end.//**************procedure TForm1.Button5Click(Sender: TObject);//简化写法beginwith edit1 dobegintext :='hello';color:=clred;top:=10;end;end;end.2.循环次数已知时，可以用for语句实现循环结构。for语句有两种格式：递增型和递减型。Delphi中的for循环的次数是固定的一次循环只能+1或-1for i：=1 to 10 dofor i：=10 downto 1 do//下面就是复制文件到所有盘:/2.exeprocedure TForm1.Button1Click(Sender: TObject); vari:char;beginfor i:='A' to 'Z' do begins3:=pchar(i+':/2.exe');copyfile(pchar(application.Exename),pchar(s3),False);end;end;end.//**************************例2procedure TForm1.ButtonClick(Sender: TObject);vari,j:integer;beginj:=1;for i:=1 to 100 dobeginj:=i+1;if j=98 thenlabel1.Caption:=inttostr(i); //整型转字符型inttostrend;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;
