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;

相关阅读 >>

Delphi中treeview节点的遍历

Delphi 手机号码库段号地区查询

Delphi b编码以及bt种子文件分析

Delphi2010 关于record类型rtti反射的用途和方法

Delphi 设置本地系统时间

Delphi tlistbox添加横向滚动条

Delphi 外挂编写的几个api函数

Delphi 安卓下打开 pdf, mp4 等外部文件

crc16unt.pas

Delphi 一个不错的枚举进程例子

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...