Objectlist.Add(). überladen

[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