謝謝斑竹:但小弟還想知道Delphi 中有沒有類似VB 中的For Each ...Next 語句. 如下.............. FOR EACH o IN Myobjects showmessage(o.name); NEXT 如沒有﹐則Delphi 中如何對 對象數組進行訪問呢?

您要的大概是 ComponentCount 吧, 例:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComponentCount -1 do
    ShowMessage(TComponent(Components[i]).Name);
end;

--- Everything I say is a lie.

for i:=0 to ComponentCount -1 do if TComponent(Components[i]) is Myobjects then showMessage(Myobjects(Components[i])).Name);