AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi tlist. get "überschreiben", Fehlermeldung verhindern
Thema durchsuchen
Ansicht
Themen-Optionen

tlist. get "überschreiben", Fehlermeldung verhindern

Ein Thema von DrUArn · begonnen am 23. Jul 2012 · letzter Beitrag vom 26. Jul 2012
 
DrUArn

Registriert seit: 20. Mär 2003
130 Beiträge
 
Delphi 10.3 Rio
 
#17

AW: tlist. get "überschreiben", Fehlermeldung verhindern

  Alt 24. Jul 2012, 19:25
Hi,
@himitsu:

Danke, ich habe wohl übersehen, das tlist.free nicht automatisch die eingelagerten Elemente und ihren Speicher löscht (?!)
das macht tobjectlist mit Voreinstellung ownsobjecrts=true.

Deiner Anmerkung:
Wie bei der restlichen Vererbung gilt auch hier:
- Es können die angegebenen Typen/Klassen/Objekte in diese Listen rein und alle Nachfahren

kann ich nicht folgen

Delphi-Quellcode:
tmyobj1=class(tobject)
end;

tmyobj2=class(tmyobj1)
end;

TMyList1 = class(TobjectList<tmyobj1>)
end;

TMyList2 = class(TobjectList<tmyobj2>)
end;
ist nicht erlaubt.

nur so:
Delphi-Quellcode:
TMyList2 = class(TobjectList)
end;
da kann ich sicher tmyobj2 durch add einfügen (du schreibst ja, daß das geht), bekomme aber von get oder items[idx] nur tmyobj1,
würde aber gerne in tmylist2 auch auf tmyobj2 zugreifen, welche ich dort speichern möchte.


habe nun folgendes erfolgreich getestet - bleibt die frage, ob das wieder ein böses casting ist
(erst mal für tobjectlist, dürfte aber genauso für die generischen gehen):

Delphi-Quellcode:
TMyList1 = class(TObjectList) {verwaltet tobj1}
  private
  protected
  public
  function Get(Index: Integer): tmyobj1;virtual;//redefiniert die statische Methode, jetzt wird tobj1 statts pointer zurückgegeben
 end;


function TMyList1.Get(Index: Integer): tmyobj1;
begin
result:=inherited get(index);
//if cardinal(index) < Cardinal(Count) then
// Result := List^[Index] else result:=nil;
end;
Wenn ich dafür sorge, das nur tobj1 in die Liste reinkommen, kann ich nun ohne Typcasting auf die Einträge zugreifen, muß
aber für alle Lesezugriffe .get benutzen (nicht etwa .items[idx]) - das ist sicher ein Nachteil.

In einer abgheleiteten Liste mit von tmyobj1 abgeleiteten Elementen und überschriebenem .get könnte ich dann
auf die abgeleiteten Elemente zugreifen und auf die schon vorhandenwen Funktionen von der Vorgängerliste.

Oder ist das auch zu sehr um die Ecke gedacht?

in deinem Beispiel
geht das nicht
for Z := 0 to Liste.Count - 1 do
WriteLn(X[Z].s, X[Z].i); x(z).s gibt's nicht

das ist beeindruckend
for X in Liste do
WriteLn(X.s, X.i);
finally

gibt free hier auch die
Einträge selbst frei???
Liste.Free;


Grüße Uwe

Geändert von DrUArn (24. Jul 2012 um 19:40 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz