TList und TypeCast

[Bernd82]

In Delphi habe ich immer eine TList angelegt und konnte die Inhalte direkt den Variablen zuweisen:

Code: Alles auswählen

VAR Lst:TList;
    Img:TImage;
BEGIN
  Img:=TImage.Create;
  Lst:=TList.Create;
  Lst.Add(Img);
  Img:=Lst[0];               <-------- Error
  Img.Free;
  Lst.Free;
END;
 

In Lazarus / FreePascal scheint das nicht zu gehen?!? Ich muss immer schreiben:

Code: Alles auswählen

  Img:=TImage(Lst[0]);

Gibt's da 'nen Compilerschalter?

Gruß Bernd

[Michl]

Du kannst

Code: Alles auswählen

{$mode delphi}  

nutzen.

[Warf]

Ich würde nicht den Pascal Dialekt wegen ein Paar Zeile ändern.
Ich denke sogar das die FreePascal Variante die bessere ist, da es deutlich Sicherer ist.
Wenn die Liste nur Images enthält nimm doch eine generische Liste (TFPGList). Wenn die Liste verschiedene Objekte enthält nimm doch eine TObjecList und Caste via As Operator. Das sorgt dafür das, falls das Element den falschen Typ hat, ein Fehler geworfen wird. TList würde ich nur verwenden wenn du Zeiger auf andere Typen und Objekte (und eventuell noch integers) mischst. Ansonsten sind die oben genannten Varianten definitiv besser

[Bernd82]

Danke für Eure Antworten. Den {$mode delphi} habe ich mir angeschaut. Der hat auch Nachteile und das exakte Type-Casten hat auch Vorteile. Es ist halt mehr Schreibaufwand. Und erfordert mehr Tricks, wenn man verschiedene Objekte in einer Liste hat. Ich weiß jetzt jedenfalls über die Möglichkeiten Bescheid. Danke nochmal für Eure Hilfe!

Gruß Bernd

[MikeRohsoft]

Du musst einfach nur

Code: Alles auswählen

 
Img:=Lst[0];
 

in

Code: Alles auswählen

 
Img:=@Lst[0];
 

ändern

[Warf]

Du musst einfach nur

Code: Alles auswählen

 
Img:=Lst[0];
 

in

Code: Alles auswählen

 
Img:=@Lst[0];
 

ändern

Das wird nicht funktionieren da der Adressoperator @ nur auf Variablen und nicht auf Objekt Array-Properties definiert ist

[wp_xyz]

Code: Alles auswählen

  Img:=TImage(Lst[0]);