Ich hab noch mal weitergespielt:
Delphi-Quellcode:
procedure TTestForm.Button1Click(Sender: TObject);
var
elements: TList;
ele: Pointer;
begin
elements := TList.Create;
try
elements.Add(Label1);
for ele in elements do
begin
if TObject(ele) is TLabel then
TLabel(ele).Visible := true;
end;
finally
elements.Free;
end;
end;
TList enhält eine Liste von Pointern. Mit ele vom Typ Pointer klappts denn auch.
Grüsse
Uli
Er wollte so richtig in Delphi einsteigen. Nun steckt er ganz tief drin ...