RSS订阅 | 匿名投稿
您的位置:网站首页 > 基础 > 正文

delphi with do和for do语句

作者:admin 来源:未知 日期:2010/4/29 11:48:48 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: