Auf Objekt in der TObjectList zugreifen

[Luki206]

Hi DP, ich möchte ein zur Laufzeit generiertes Objekt über die TObjectList mit neuen Informationen versorgen nur weiß ich jetzt nicht wie ich wieder auf das Objekt zugreifen kann (Google wollte mir auch nicht helfen). Alternativ hätte ich noch den Array nur weiß ich nicht ob das so prickelnd ist :mrgreen:

Danke

Luki :spin:

[TForm1]

Normalerweise müsste mit einem hart gecasteten Typen gehen, so mache ich es immer:

Delphi-Quellcode:

TFoo(DeineListe[index]).IrgendEtwas

[Der schöne Günther]

Ich glaube ohne etwas Code und was nicht funktioniert wie erwartet stellt sich jeder etwas anderes drunter vor.

[Luki206]

Halt Moment, wo bitte habe ich geschrieben das etwas nicht geht? Wenn es der Fall wäre würde ich Code posten doch jetzt wollte ich nur Fragen ob jemand weiß, oder einen Link zu einem Tut, wie man die Objekte bearbeitet

[Sir Rufo]

Zitat:

Zitat von Luki206 (Beitrag 1280939)

Halt Moment, wo bitte habe ich geschrieben das etwas nicht geht? Wenn es der Fall wäre würde ich Code posten doch jetzt wollte ich nur Fragen ob jemand weiß, oder einen Link zu einem Tut, wie man die Objekte bearbeitet

Dann frag das direkt und vor allem auf welche System.Contnrs.TObjectList / System.Generics.Collections.TObjectList bezieht sich deine Frage?
Obwohl die Doku da eigentlich genug Auskunft geben sollte.

[Luki206]

Oh, das es zwei gibt wusste ich nicht :oops: Und danke für die Links zu Emba:thumb:, ich finde die meistens nicht bzw. ich sollte mir ein Lesezeichen setzen :stupid:

[DeddyH]

http://www.delphipraxis.net/dp_reference.php (da steht auch ein prima Tipp ;))

[Sir Rufo]

Zitat:

Zitat von Luki206 (Beitrag 1280941)

Oh, das es zwei gibt wusste ich nicht :oops: Und danke für die Links zu Emba:thumb:, ich finde die meistens nicht bzw. ich sollte mir ein Lesezeichen setzen :stupid:

Du möchtest mir/uns jetzt tatsächlich weis machen, dass du dir ein Wort nicht merken kannst?

Das magische Wort heißt docwiki und offenbart so docwiki TObjectList seine Magie. Ja, du hast Recht, das übersteigt natürlich die Fähigkeit eines Otto-Normal-Programmieres. :roll:

[Popov]

Da ich schon länge nichts mehr gecodet habe, hier eine Übung. Ich hoffe es ist richtig:

Delphi-Quellcode:

implementation

{$R *.dfm}

uses
  Contnrs;

type
  TInfo = class //Beispiel-Klasse
    DT: TDateTime;
  end;

var
  Obj: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Obj := TObjectList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Info: TInfo;
  p: Integer;
begin
  Info := TInfo.Create; //Beispiel-Objekt Erstellen
  Info.DT := Now;

  p := Obj.Add(Info); //Beispielobjekt in ObjectList zuweisen

  if p > -1 then
    ShowMessage(Format('Aktuelle Zeit im Item %d als Objekt gespeichert.', [p]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  DT: TDateTime;
  Info: TInfo;
  p: Integer;
begin
  if Obj.Count = 0 then Exit;
  p := Obj.Count - 1;

  Info := TInfo(Obj[p]); //Beispielobjekt aus ObjektList wieder auslesen
  DT := Info.DT;

  ShowMessage('Im Objekt gespeicherte Zeit: ' + TimeToStr(DT));
end;

[Jumpy]

Wie ist das eigentlich, wenn man noch nicht generisch unterwegs ist und immer Objekte der selben Klasse in die Objektliste packen möchte und einem das ganze rumgecaste stört?
Ich habe dazu einmal eine eigene Klasse erstellt, die selber intern eine Objektlist hatte und die nach außen hin die paar Methoden anbot, die ich benötigte (und die soweit gleich hießen, wie die der Objektliste) und habe in diesen Methoden dann das "rumcasten" erledigt. Wäre es da besser/sinnvoller gewesen stattdessen eine Klasse zu erstellen, die von TObjectlist erbt?

[Der schöne Günther]

Nein, wie denn? Ich dachte (bin mir nicht sicher), die alte TObjectList arbeitet mit

Delphi-Quellcode:

Pointer

oder

Delphi-Quellcode:

TObject

. Du kannst in einer Ableitung nicht einfach den Typ verschärfen, also gegen

Delphi-Quellcode:

TMeineKlasse

ersetzen.

[DeddyH]

Ob das besser oder sinnvoller ist, sei dahingestellt, ich zumindest habe das so gemacht.

[Popov]

Die TObjectList ist nicht sonderlich kompliziert, ich denke die baut auf TList auf. Wer also nichts erben will, bzw. die TObjectList nicht, kann den Code von TObjectList kopieren und an eigene Bedürfnisse modifizieren.

[Bjoerk]

Wozu? Meistens reicht es schon die property Items zu überschreiben:

Delphi-Quellcode:

  TSomeItems = class(TObjectList)
  private
    function GetSomeItem(Index: integer): TSomeItem;
  public
    property Items[Index: integer]: TSomeItem read GetSomeItem; default;
  end;

{ TSomeItems }

function TSomeItems.GetSomeItem(Index: integer): TSomeItem;
begin
  Result := TSomeItem(inherited Items[Index]);
end;

{ TSomeApp }

procedure TSomeApp.DoSomething;
begin
  Index := FSomeItems.Add(TSomeItem.Create);
  FSomeItems[Index].DT := Now;
end;

[DeddyH]

http://www.delphi-treff.de/tutorials/vcl/tobjectlist/3/, allerdings trifft der Text nicht ganz zu, denn die Methoden können gar nicht überschrieben werden, dazu müssten sie virtuell oder dynamisch sein. Tatsächlich werden sie im gezeigten Code also verdeckt. In den meisten Fällen ist das nicht so schlimm, aber wenn Polymorphie (z.B. ein TObjectList-Parameter) ins Spiel kommt, spielt das schon eine Rolle.

[himitsu]

Zitat:

Zitat von Bjoerk (Beitrag 1281029)

Wozu? Meistens reicht es schon die property Items zu überschreiben:

Jupp.

Nur überdecken/verdecken, da es ja nicht überschreibbar (override) ist.

[DeddyH]

Aber wenn ich nur Items anfasse, kann ich ja immer noch z.B. ein TEdit zur Liste hinzufügen. Das wird dann beim Items-Getter ganz böse knallen.

[himitsu]

Jupp, aber wenn man böse castet, dann bekommt man auch in die generischen Liste ein TEdit rein. (das Gegenteil von hier -> nicht casten)
Aber man könnte ja auch noch die Add- und InsertMethoden überdecken. :wink:

Und wenn man eine Variable auf TObjectList hat, dann ist dort ebenfalls wieder das alte Item.
Es ist halt nur in dem Typen überdeckt, aber im Vorfahren natürlich nicht. (bei den Generics gibt es das Problem nicht, da der Typ nicht mit dem Vorfahren kompatibel ist :stupid:)

[DeddyH]

Schau Dir doch einfach #15 nochmal an und folge dem Link. Das ist doch fast alles schon gesagt worden :stupid:

[himitsu]

Es fehlt nur noch Eines.

Wenn man Notify "überschreibt" und dort eine Typprüfung einbaut, dann könnte man ganz leicht dafür sorgen, daß nur erlaubte Typen in die Liste aufgenommen werden. :angel2:

[sx2008]

Es gibt mindestens 4 Varianten:
1.) man verwendet TObjectList und muss beim auslesen der Objekte casten
2.) man verwendet eine generische ObjektList (natürlich nur wenn man eine Delphi Version hat die das unterstützt)
3.) man leitet von TObjectList ab und überdeckt das Items[]-Property
4.) man erstellt eine Klasse die intern ein privates Objekt vom Typ TObjectList hat und präsentiert nach Aussen nur die Properties und Methoden die man für die Aufgabenstellung unbedingt braucht:

Delphi-Quellcode:

TSomeItems = class(TObject)
private
    FList : TObjectList;
public
    constructor Create;
    destructor Destroy;override;
    procedure Add(item:TSomeItem);
    function AddNew:TSomeItem;
    property Items[Index: integer]: TSomeItem read GetSomeItem; default;
    property Count:Integer read GetCount;
end;

Das bedeutet natürlich die meiste Schreibarbeit und den geringsten Grad an Wiederverwendbarkeit;
im Gegenzug kann man die Klasse auf seine Anforderungen genau zuschneiden und hat die beste Kontrolle darüber was in die Liste eingefügt oder aus der Liste gelöscht werden kann.

[himitsu]

3a) wie in 3 genannt

3b) mit überschreiben verdecken von Add und Insert, mit dem gewollten Typen

3c) mit überschreiben von Notify und am Besten auch Add/Insert


Bei 3c bekommt man zwar erst Meldung nach der Aktion.
Entweder man wirft nur eine Exception und lässt das so,
oder bei Add wird das ungültige gleich wieder entfernt und danach die Exception, bzw. beim Löschen wieder eintragen und Exception.