大虾帮忙啊!!!在线等待

blue_coco 2005-05-21 12:43:06
假如创建10个button,命名依次为btn0, btn1.....btn9;
想改动每个button的caption:例如:
btn0.caption := '0';
btn1.caption := '0';
btn2.caption := '0';
btn3.caption := '0';
btn4.caption := '0';
btn5.caption := '0';
btn6.caption := '0';
btn7.caption := '0';
btn8.caption := '0';
btn9.caption := '0';
btn10.caption := '0';

但不想写太多代码
如何用循环来实现



...全文
57 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
syl79 2005-05-21
  • 打赏
  • 举报
回复
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
btn : TButton;
begin
for i := 0 to 9 do
begin
btn := TButton (FindComponent ('btn' + inttostr(i)));
if btn <> nil then
btn.Caption := IntToStr(i);
end;
end;
blue_coco 2005-05-21
  • 打赏
  • 举报
回复
多谢各位,小弟没说清楚,如果我稍改一下题目如下,再请各位指点

btn0.caption := '0';
btn1.caption := '1';
btn2.caption := '2';
btn3.caption := '3';
btn4.caption := '4';
btn5.caption := '5';
btn6.caption := '6';
btn7.caption := '7';
btn8.caption := '8';
btn9.caption := '9';
btn10.caption := '10';
syl79 2005-05-21
  • 打赏
  • 举报
回复
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
btn : TButton;
begin
for i := 0 to 9 do
begin
btn := TButton (FindComponent ('btn' + inttostr(i)));
if btn <> nil then
btn.Caption := '0';
end;
end;
smiler007 2005-05-21
  • 打赏
  • 举报
回复
var
i:integer;
begin
for i:=ComponentCount-1 downto 0 do
if (Components[i] is TButton) then (Components[i] as TButton).Caption:='0';
end;

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧