for j:= 0 to ADOTable1.RecordCount-1 do begin
Edit[j].Text:= ADOTable1.FieldByName('名稱').AsString;

請問一下可以用這樣的寫法嗎?

var
i,j:Integer;
MyEdits:array of TEdit;
begin
SetLength(MyEdits,6);
j:=0;
for i := 0 to Self.ComponentCount-1 do
begin
if Self.Components[i] is TEdit then
begin
MyEdits[j]:=(Self.Components[i] as TEdit);
Inc(j);
end;
end;
for i :=0 to j-1 do
begin
MyEdits[i].Text:=IntToStr(i);
end;

感謝pedro756901兄給的案例~

不知道您有沒有大作可以看(書...)

因為小弟只會看案例來舉一反三(買了三~四本...裡面都一樣的案例.....看沒有@@")

>感謝pedro756901兄給的案例~

呵呵,不客氣,著作倒是沒有,不過我可以大致解釋一下這程式意思

> for i := 0 to Self.ComponentCount-1 do
> begin
> if Self.Components[i] is TEdit then
> begin
> MyEdits[j]:=(Self.Components[i] as TEdit);
> Inc(j);
> end;
> end;
> for i :=0 to j-1 do
> MyEdits[i].Text:=IntToStr(i);
> end;

在Form的container裡(就是控制項的Parant是Form),可以用ComponentCount去知道Form上有多少個控制項,用Is去判斷該控制項是否為某一類型的控制項,然後用As去轉型.

因為MyEdits宣告為array of TEdit,是一個TEdit陣列,把Components[i]所轉型指向它,Components[i]是一個定義TComponent型態的類別的資料,實際上需視執行時所建立的是什麼物件,所以需判斷Is是否為TEdit,及轉型As為TEdit.

感謝你解說的這麼詳細~

可以在請教一下嗎?為什麼我不能同時使用LABEL和EDIT?

可以啊,在這段之後

if Self.Components[i] is TEdit then
begin
MyEdits[j]:=(Self.Components[i] as TEdit);
Inc(j);
end;
再加上

if Self.Components[i] is TLabelthen
begin
MyLabels[j]:=(Self.Components[i] as TLabel);
Inc(k);
end;

===================引 用 文 章===================

可以啊,在這段之後

if Self.Components[i] is TEdit then
begin
MyEdits[j]:=(Self.Components[i] as TEdit);
Inc(j);
end;
再加上

if Self.Components[i] is TLabelthen
begin
MyLabels[j]:=(Self.Components[i] as TLabel);
Inc(k);
end;
先感謝你的指導~~^^

執行後會出現"Project Project1.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped. Use Step or Run to continue."

耶~~~

小弟依照你的方法試出來了~

先前是手殘弄錯了~~感謝你~~

抱歉我可以再請教一下嗎?

Image可以用這種方式嗎?

就是欄位裡的資料是圖檔的位置~

小弟先試了之前的方式好像是不同的資料型態~所以不能用這種方式?!