同一コントロール名をループでまわすには?

解決


かえるっち  2004-06-22 01:25:02  No: 9556  IP: [192.*.*.*]

またまた、お願いします。
同じ名前の10個のテキストボックスに値を入れたいのですが、
ループでできるのでしょうか?
テキストボックスの名前は、
txtName1、txtName2、...txtName9、txtName10
というように番号がふってあります。
よろしくお願いします。

編集    削除
@っしー  2004-06-22 01:42:55  No: 9557  IP: [192.*.*.*]

FindComponentを使います。

for i:=1 to 10 do
begin
  TEdit(FindComponent('txtName' + IntToStr(i))).Text := IntToStr(i);
end;

編集    削除
かえるっち  2004-06-22 02:20:08  No: 9558  IP: [192.*.*.*]

ありがとうございました。
解決しました。

編集    削除