Du hast eine TList mit Pointern, also muß ele ein Pointer sein.
Delphi-Quellcode:
var ele: Pointer;
for ele in elements do
if TObject(ele) is ... then
Man kann sowas versuchen, aber leider mag der Compiler das oft nicht. "... muß eine Variable sein, bla bla bla"
Delphi-Quellcode:
var ele: TObject;
for Pointer(ele) in elements do
Oder man ist mal etwas böse.
Delphi-Quellcode:
var
_ele: Pointer;
ele: TObject absolute _ele;
for _ele in elements do
if ele is ... then
Wieso keine TObjektList oder gar eine generische TList<TObject> (oder TComponent/TMyIrgendwas/...) ?
Und ja, da hier überall VISIBLE vorkommt, ist es eigentlich nötig sich den gemeinsamen Vorfahren rauszusuchen und dann das nur einmal zu machen.
Da Visible aber in der Basis protected ist, und man hier weiß, dass ALLEs ein Visible (das Selbe) hat, kann man hier auch blind in einen Typen casten, wo es public ist ... siehe UliBru.
Delphi-Quellcode:
procedure TTestForm.Button1Click(Sender: TObject);
var ele: Pointer;
for ele in elements do
if TObject(ele) is TControl then
TLabel(ele).Visible := true;