arbeiten mit tobjectlist

[silver-moon-2000]

Zitat von blinder007:

[...]ich habe nun mehrere klassen in einer tobjectlist gespeichert. [...]

Zitat von Uwe Raabe:

... oder man nimmt gleich die generische TObjectList<T> ...

Eine generische ObjectList fährt aber gegen die Wand, sobald er mehrere Klassen verwalten will.
Dann würde ich, ganz grob, so vorgehen:

Delphi-Quellcode:

if kiObjectList.Items[i] is TKIClass then
  (kiObjectList.Items[i] as TKiClass).DoSomething;
if kiObjectList.Items[i] is TPlayerClass then
  (kiObjectList.Items[i] as TPlayerClass).DoSomethingDifferent;

Wobei ich hier einfach mal den "SoftCast" as anstelle des HardCasts verwendet habe

Oder habe ich das Ganze wieder einmal falsch interpretiert und es sind mehrere Instanzen *einer* Klasse gemeint?

[uligerhardt]

Zitat von silver-moon-2000:

Dann würde ich, ganz grob, so vorgehen:

Delphi-Quellcode:

if kiObjectList.Items[i] is TKIClass then
  (kiObjectList.Items[i] as TKiClass).DoSomething;
if kiObjectList.Items[i] is TPlayerClass then
  (kiObjectList.Items[i] as TPlayerClass).DoSomethingDifferent;

Wobei ich hier einfach mal den "SoftCast" as anstelle des HardCasts verwendet habe

Was aber in genau dem Konstrukt überflüssig ist: Das "is" prüft den Typ ja schon, da musst du nicht mit "as" nochmal prüfen.

[silver-moon-2000]

Zitat von uligerhardt:

Zitat von silver-moon-2000:

Wobei ich hier einfach mal den "SoftCast" as anstelle des HardCasts verwendet habe

Was aber in genau dem Konstrukt überflüssig ist: Das "is" prüft den Typ ja schon, da musst du nicht mit "as" nochmal prüfen.

Da hast Du auch wieder Recht, aber ich wollte einfach mal zeigen, dass es außer dem harten Cast noch etwas anderes gibt (ja, ich denke, das wird als Ausrede funktionieren...)

[Der schöne Günther]

Aber warum sollte man überhaupt Instanzen mehrerer vollkommen verschiedener Klassen in eine einzige Liste packen wollen?

Auch stehe ich jetzt schon auf dem Schlauch, warum man sich den "as"-Cast sparen können soll? Was, wenn "DoSomethingDifferent" eben erst in der "TPlayerClass" deklariert worden ist?

[DeddyH]

Nicht das "as" sparen, sondern das "is", wenn man sowieso schon "as" verwendet. Da "as" die "is"-Prüfung intern vornimmt, ist die Verwendung beider zusammen doppelt gemoppelt.

[uligerhardt]

Zitat von DeddyH:

Da "as" die "is"-Prüfung intern vornimmt, ist die Verwendung beider zusammen doppelt gemoppelt.

Das ist richtig...

Zitat von DeddyH:

Nicht das "as" sparen, sondern das "is", wenn man sowieso schon "as" verwendet.

... aber wie willst du dann rausfinden, welche Klasse du gerade behandelst? Doch hoffentlich nicht EBadCast (oder wieauchimmer das Ding heißt) abfangen?

[DeddyH]

Du musst den letzten Nebensatz beachten.

[uligerhardt]

Zitat von Der schöne Günther:

Auch stehe ich jetzt schon auf dem Schlauch, warum man sich den "as"-Cast sparen können soll? Was, wenn "DoSomethingDifferent" eben erst in der "TPlayerClass" deklariert worden ist?

Einen harten Cast nehmen:

Delphi-Quellcode:

if kiObjectList.Items[i] is TPlayerClass then
 TPlayerClass(kiObjectList.Items[i]).DoSomethingDifferent;

Der ist durch das if-is abgesichert.

[Uwe Raabe]

Zitat von silver-moon-2000:

Eine generische ObjectList fährt aber gegen die Wand, sobald er mehrere Klassen verwalten will.

Nicht mehr als eine nicht-generische TObjectList.

Wenn er wirklich unterschiedliche Klassen verwalten will, die als einzigen gemeinsamen Nachfahren TObject haben, dann ist TObjectList eine Wahl. In allen anderen Fällen bietet sich eine generische Liste über den BasisTyp an. Werden dann wirklich die einzelnen Klasseninstanzen gebraucht, ist eine Phalanx von if kiObjectList.Items[i] is <SomeClass> then auch nicht wirklich elegant. Dafür gibt es besser geeignete Patterns (z.B. Visitor).

Ich habe aber trotz der Original-Formulierung

Zitat:

ich habe nun mehrere klassen in einer tobjectlist gespeichert.

das so interpretiert, daß damit mehrere Instanzen einer Klasse gemeint sind.

[blinder007]

hallo,
und ja, ich meinte mehrere instanzen ein und der selben klasse - für jede ki, die in diesem spiel auf tauchen soll eine instanz der klasse tkiclass. diese zahlreichen beiträge helfen mir schon sehr gut weiter und nebenbei habe ich noch was über is und as gelernt
dank euch - nur zum schluss: sind die generischen tobjectlisten auch schon in delphi 6 implementiert?
grüße blinder007
edit: dann habe ich es also richtig verstanden, dass ich am besten alle instanzen in lokale objekte lade, dann damit arbeite und sie am ende wieder freigebe?
wenn das so ist, wie kann ich denn dan die änderung eines feldes in speichern. ich habe z.b. das feld fkiposition: tpointer; wie kann ich denn dann die lokale modifizierung dieses feldes wieder in der, aus ihrer ursprünglichen instanz, wieder dort speichern?