var j,i:integer; Str:String; begin inherited; for i:=0 to componentcount-1 do begin Showmessage((Components[i] as TLabel).Caption); end; 以上是我的程式碼可是都會出現錯誤 invalid class typecast 因為我是在childMDI下做的那麼我應要怎麼寫這程式碼 我的Label放在pagecontrol元件內的panl下 謝謝

var
  j,i:integer;
  Str:String;
begin
  for i:=0 to componentcount-1 do
  begin
    if Components[i] is TLabel then
      Showmessage((Components[i] as TLabel).Caption);
  end;
end;

請加紅色那一行程式 Ian

現在我發現我的問題所在了 是因為我把components這段加入到for內所以不會被執行 var arr:array of String; SetLength(arr,adoTemp.RecordCount); for i:=0 to adoTemp.RecordCount-1 do begin if (adoTemp.FieldByName('客房編號').AsString=arr[i]) then begin if (Components[i] is tlabel) then showmessage((Components[i] as Tlabel).Name); //不會被執行到 end; 請問要怎麼做呢 thanks

引言: 現在我發現我的問題所在了 是因為我把components這段加入到for內所以不會被執行 var arr:array of String; SetLength(arr,adoTemp.RecordCount); for i:=0 to adoTemp.RecordCount-1 do begin if (adoTemp.FieldByName('客房編號').AsString=arr[i]) then begin if (Components[i] is tlabel) then showmessage((Components[i] as Tlabel).Name); //不會被執行到 end; 請問要怎麼做呢 thanks

你的程式是去跑adoTemp.RecordCount-1，而且又判斷if (adoTemp.FieldByName('客房編號').AsString=arr[i]) then，我看不懂你要做些什麼，可以說明清楚嗎？ Ian

sorry大大這個問題我己解決了解決方式是另在在做一個procedure 程序就可以了感謝您熱心幫忙