Objectlist.Add(). überladen

[Noobmaster]

Hallo!

Möchte einer Objektliste Objekte des gleichen Typs hinzufügen.

Ungefähr so:

Delphi-Quellcode:

   EinObjekt := TObject.Create();
   EinObjekt.Name := '1';
   Objektliste.Add(EinObjekt);
   {EinObjekt.Destroy;
   EinObjekt := nil;   Das Objekt in der Liste geht auch verloren!}
   EinObjekt := TObject.Create();
   EinObjekt.Name := '2';
   Objektliste.Add(EinObjekt);

Problem ist, dass die Funktion "TObjectlist.Add" 2x vorhanden ist:
- mit einem Pointer als Parameter
- mit einem TObject als Parameter

Er nimmt aber immer den Pointer.

Wie kann ich es einrichten, dass meine Objekte der Liste "richtig" hinzugefügt werden, sodass ich nur eine Variable brauche, um alle Objekte zu erstellen?

Danke für eure Hilfe!

[Uwe Raabe]

Beim hinzufügen eines Objekts in eine Objektliste (TObjectList?) mittels Add wird die Instanz nicht dupliziert! Wenn du das Objekt danach freigibst, hast du in der Objektliste einen ungültigen Zeiger. Objekt-Instanzen sind nunmal auch nur Zeiger.

[Bjoerk]

Es gibt TList und TObjectList. Poste mal dein EinObjekt.

[Noobmaster]

Zitat:

Zitat von Uwe Raabe (Beitrag 1118446)

Beim hinzufügen eines Objekts in eine Objektliste (TObjectList?) mittels Add wird die Instanz nicht dupliziert! Wenn du das Objekt danach freigibst, hast du in der Objektliste einen ungültigen Zeiger. Objekt-Instanzen sind nunmal auch nur Zeiger.

Was ich jetzt erreichen will ist ja, dass ich mit einer Variable "EinObjekt" viele verschiedene Objekte gleichen Typs erstellen und diese in eine TObjectlist abspeichern kann. Sollte eine TList dafür geeigneter sein, dann nehme ich die. Ich kann theoretisch auch selber einen Listenstruktur programmieren, aber warum die Arbeit, wenn es diese vorgefertigten Strukturen gibt.

Zusammenfassend:
Ich habe
- Eine Objektliste vom Typ TObjectlist oder ähnliches
- Eine Variable EinObjekt: TMeinTyp
und möchte eine beliebige Anzahl von Instanzen vom Typ TMeinTyp mit Hilfe von EinObjekt erstellen und diese Instanzen in einer Liste abspeichern.

P.S.: ich habe bewusst vermieden, mein konkretes Programmbeispiel zu posten, da ich glaube, dass das die Sache unnötig verkomplizieren würde.

[Bjoerk]

EinObjekt:= TMeinTyp.Create und Liste.Add(EinObjekt) sollte funktionieren.

[haentschman]

Hallo...

funktioniert so. Auch in einer Schleife 100 Mal. Dann hat die Liste 100 Objekte.
Nur sollte man noch erwähnen, daß deine TObjectList zwar die Objekte hällt aber nicht weiß welchen Typs. Das heißt beim Zugriff über den Index der Liste mußt du auf deinen Typ casten.

[Lemmy]

Guten Morgen,

und man sollte vielleicht erwähnen, dass TObjectList von TList abgeleitet ist. Weiterhin sollte man erwähnen, dass es zwischen einem Zeiger und einer Instanz in Delphi keine wesentlichen Unterschiede vorhanden sind - eine Instanz ist im Grunde ein Zeiger auf die Objektstruktur. Deshalb passiert bei der Freigabe hier genau das:

Delphi-Quellcode:

  EinObjekt := TObject.Create();
    EinObjekt.Name := '1';
    Objektliste.Add(EinObjekt);
    {EinObjekt.Destroy;
    EinObjekt := nil;   Das Objekt in der Liste geht auch verloren!}
    EinObjekt := TObject.Create();
    EinObjekt.Name := '2';
    Objektliste.Add(EinObjekt);

Wenn Du "EinObject.Destroy" machst, dann gibts Du das Objekt frei - in der Liste ist aber immer noch die Adresse des Objektes gespeichert, das inzwischen aber nicht mehr existiert.

Grüße

[chaosben]

Und weil wir gerade bei den guten Ratschlägen sind:
Nimm doch eine TList/TObjectList aus der Unit Generics.Collections.
Da kannst du den Typ deiner Objekte angeben und sparst dir das casten.

//edit: Sorry ... seh grad deine Delphi-Version. (Generics funzen erst ab 2009) Vergiss meinen Kommentar einfach. :)

[himitsu]

Man sollte .Destroy aber nicht direkt aufrufen, sondern stattdessen .Free :angle2;

Zitat:

Generics.Collections

Ab Delphi 2010 (Generics eben)

Da Lazarus ja auch Generics bietet, wird sich das dort vermutlich auch irgendwo verstecken. (dieses nutzt der TE)

[DeddyH]

Ich sehe da etwas von Delphi 5 :roll:

[mezen]

Zitat:

Zitat von Noobmaster (Beitrag 1118443)

Delphi-Quellcode:

   EinObjekt := TObject.Create();
   EinObjekt.Name := '1';
   Objektliste.Add(EinObjekt);
   {EinObjekt.Destroy;
   EinObjekt := nil;   Das Objekt in der Liste geht auch verloren!}
   EinObjekt := TObject.Create();
   EinObjekt.Name := '2';
   Objektliste.Add(EinObjekt);

Bei dem Code ist so in dieser Form erstmal kein Fehler drin (wenn man davon absieht, dass TObject keine Property Name hat), du kannst ohne Probleme sowas aufbauen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  LObjectList: TObjectList;
  LObject: TObject;
begin
  LObjectList := TObjectList.Create(True);
  try
    for i := 0 to 9 do
    begin
      LObject := TObject.Create();
      LObject.Name := 'foo';
      LObjectList.Add(LObject);
    end;
  finally
    LObjectList.Free;
  end;
end;

Bei TObjectList.Create wird der Parameter True übergeben, welcher bedeutet, dass beim freigeben der Objectliste auch alle dahinter liegenden Objecte mit freigegeben werden. Solltest du den parameterlosen Constructor aufrufen, geschieht dies ebenso.
Wenn du Instanzen von Objekten übergibst, übergibst du eigentlich nie das Objekt selber, sondern nur die Referenz auf die Speicheradresse wo das Objekt liegt. Daraus folgt, dass in der LObjectList und im LObject nur Zeiger auf ein und das selbe Objekt sind. Wenn du jetzt über einen dieser Zeiger das Objekt freigibst, dann zeigt die andere Referenz immer noch dahin, beim Aufrufen wirst du dort aber kein Objekt mehr finden.

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1118510)

Ich sehe da etwas von Delphi 5 :roll:

Links im Profil: FreePascal / Lazarus

Die D5 sind hier im Subforum die Standardeinstellung, wenn man nix Anderes auswählt.
(darum hatte ich mir ja eigentlich mal im Bugtracker gewünscht, dieses abzuändern)

[Noobmaster]

Hallo Leute!

Ich hatte eigentlich nicht mehr mit Antworten gerechnet, da ich gestern schon geschrieben habe, dass ich das Problem gelöst habe und mich entschuldigt hatte, dass der Fehler an einer anderen Stelle lag (trotzdem hab ich jetzt einiges durch eure Antworten gelernt- danke!)

Jetzt bin ich verwirrt, da mein Beitrag verschwunden ist...
Komisch ist auch, dass meine Delphi-Version auf 5 steht. Ich könnte schwören, Lazarus angegeben zu haben ;-).

Nun, man kann es nicht mehr in der Vergangenheit, sondern nur noch in der Zukunft ändern.

Danke nochmal für alle Antworten und Beiträge,

Euer Noobmaster :-)

[himitsu]

Lazarus steht ja auch da ;)
(in deinem Profil)

Aber bei einigen Subforen (wie hier) kann/muß man nochmal die Version angeben, also dort wo es oftmals um eine spezielle Version geht, denn einige/viele User nutzen nicht nur eine Version.
(im ersten Post, beim Erstellen des Threads, bzw. beim Editieren des Ersten)

[jaenicke]

Lazarus hat zwar eine etwas umständliche Implementierung von Generics, aber funktionieren tut damit vieles was in Delphi geht auch:

Delphi-Quellcode:

uses
  fgl;

type
  TMeinTyp = class
  private
    FTest: string;
  public
    property Test: string read FTest write FTest;
  end;

  TMeinTypList = specialize TFPGList<TMeinTyp>;

// ...

var
  TestList: TMeinTypList;
  NewItem: TMeinTyp;
begin
  TestList := TMeinTypList.Create;
  NewItem := TMeinTyp.Create;
  NewItem.Test := 'Nichts';
  TestList.Add(NewItem);
  ShowMessage(TestList[0].Test);

[Noobmaster]

Zitat:

Zitat von himitsu (Beitrag 1118634)

Lazarus steht ja auch da ;)
(in deinem Profil)

Aber bei einigen Subforen (wie hier) kann/muß man nochmal die Version angeben, also dort wo es oftmals um eine spezielle Version geht, denn einige/viele User nutzen nicht nur eine Version.
(im ersten Post, beim Erstellen des Threads, bzw. beim Editieren des Ersten)

Stimmt, sry, das hab ich nicht gewusst :-). Für das nächste Mal weiß ich aber jetzt bescheid. Danke

[jaenicke]

Hast du es denn mal mit Generics probiert? :-D