宣告 edit1_1:TEdit; edit1_2:Tedit; edit2_1:TEdit; edit2_2:TEdit; edit3_1:TEdit; edit3_2:TEdit;    程式    for i=1 to 3 do begin  edit[inttostr(i) '_1].Text:='ss'; edit[inttostr(i) '_2].Text:='bb'; end; 請問一下元件若宣告好命名, 是否可以以在元件後加上動態數字來呼叫 這樣的寫法edit[inttostr(i) '_1].Text 執行的時候, 它會出現 edit沒有被宣告定義, 請問各位前輩, 在前面宣告不變, 是否有解決的方法!! 謝謝! 沉思, 再沉思! 學習, 再學習! 生活隨喜, 簡單自在^^

利用 FindComponent 來做

var
  edt: TEdit;
begin
  for i := 1 to 3 do
  begin 
    edt := Form1.FindComponent('edit'   IntToStr(i)   '_1') as TEdit;
    if edt <> nil then
      edt.Text := 'ss';        edt := Form1.FindComponent('edit'   IntToStr(i)   '_2') as TEdit;
    if edt <> nil then
      edt.Text := 'bb';
end;

-- 歡迎光臨 KTop 研究院! 發表人 - hagar 於 2004/08/23 15:14:19

引言: 利用 FindComponent 來做

var
  edt: TEdit;
begin
  for i := 1 to 3 do
  begin 
    edt := Form1.FindComponent('edit'   IntToStr(i)   '_1') as TEdit;
    if edt <> nil then
      edt.Text := 'ss';        edt := Form1.FindComponent('edit'   IntToStr(i)   '_2') as TEdit;
    if edt <> nil then
      edt.Text := 'bb';
end;

-- 歡迎光臨 KTop 研究院! 發表人 - hagar 於 2004/08/23 15:14:19

謝謝hagar大大的解答,感激不盡^^ 小弟之前也有試過 FindComponent 這方法, 不過我的用法錯誤, 難怪試不出來 我之前是這樣寫的 for i=1 to 3 do begin Form1.FindComponent('edit' IntToStr(i) '_1').text:='ss'; Form1.FindComponent('edit' IntToStr(i) '_2').text:='bb'; end; 所以程式怎麼run都會出錯 不知除了這方法外,是否還有其他的寫法? 沉思, 再沉思! 學習, 再學習! 生活隨喜, 簡單自在^^

您的寫法可以改成如下:

for i := 1 to 3 do
begin 
  TEdit(Form1.FindComponent('edit'   IntToStr(i)   '_1')).Text := 'ss';
  TEdit(Form1.FindComponent('edit'   IntToStr(i)   '_2')).Text := 'bb';
  // 或是
  (Form1.FindComponent('edit'   IntToStr(i)   '_1') as TEdit).Text := 'ss';
  (Form1.FindComponent('edit'   IntToStr(i)   '_2') as TEdit).Text := 'bb';    end;

-- 歡迎光臨 KTop 研究院!

引言: 您的寫法可以改成如下:

for i := 1 to 3 do
begin 
  TEdit(Form1.FindComponent('edit'   IntToStr(i)   '_1')).Text := 'ss';
  TEdit(Form1.FindComponent('edit'   IntToStr(i)   '_2')).Text := 'bb';
  // 或是
  (Form1.FindComponent('edit'   IntToStr(i)   '_1') as TEdit).Text := 'ss';
  (Form1.FindComponent('edit'   IntToStr(i)   '_2') as TEdit).Text := 'bb';    end;

-- 歡迎光臨 KTop 研究院!

hagar大大, 這真是太棒了, 原來寫程式這麼有趣, 同一種結果, 可以有不同方法去解決. 真的很感謝您的指導^^