TList 10.1 Berlin vs 10.3 Rio

[himitsu]

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;

[Rollo62]

Zitat von himitsu:

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 böse, ist das kein valider Code ?
Ich denke das ist gensu für sowas erfunden worden

[Int3g3r]

Zitat von himitsu:

Wieso keine TObjektList oder gar eine generische TList<TObject> (oder TComponent/TMyIrgendwas/...) ?

Was bietet mir eine TObjectList im gegensatz zu einer TList ?
Bei einer TObjectList ist es noch notwendig eine unit einzubinden.
Den Namen dieser unit vergesse ich sehr schnell daher ist es für mich einfacher mit einer TList zu arbeiten.
In meinem Fall ist es doch nicht notwenig eine TObjectList zu benutzen, eine TList reicht komplett aus für mein vorhaben.
Dazu kommt das eine TObjectList auch einen Pointer erwartet.

Somit ist dann eine generische TList<> die bessere Wahl.

Mir geht es aber darum etwas zu lernen. Damit ich mir bei solchen Problemen selbst helfen könnte.
Daher möchte ich auch wissen warum das obere Beispiel mit dem Pointer nicht funktioniert.
ele : ^TObject ist auch ein Pointer.
Warum muss beim casten von TObject(ele) der Pointer nicht dereferenziert werden ?
Warum erhalte ich bei meinem Beispiel(mit Pointer) oben eine access-violation exception ?

Gruss Int3g3r

[TiGü]

Zitat von himitsu:

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.

Liest du eigentlich noch die anderen Beiträge oder versuchst du auf Teufel komm raus auf 40.000 Beiträge zu kommen?

Zitat von himitsu:

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.

Das ist sachlich falsch. Die Eigenschaft TControl.Visible ist public.