ListBox1.Items.AddObject(...) GetObject???

[Luckie]

Ja also, ich füge zur Listbox mit AddObject nicht nur ein String hinzu, sondern auch ein Object. Und zwar so:

Delphi-Quellcode:

type
  TPerson = record
    Name: String[255];
    Vorname: String[255]
  end;
  PPerson = ^TPerson;

procedure TForm1.btnAddClick(Sender: TObject);
var
  Person : Pointer;
begin
  GetMem(Person, sizeof(TPerson));
  try
    PPerson(Person)^.Name := edtName.Text;
    PPerson(Person)^.Vorname := edtVorname.Text;
    Listbox1.Items.AddObject(IntToStr(Listbox1.Items.Count+1), TObject(Person));
  finally
    FreeMem(Person, sizeof(TPerson));
  end;
end;

So, nur wie komme ich jetzt da wieder dran?

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Person: Pointer;
begin
  if Listbox1.ItemIndex > -1 then
  begin
    GetMem(Person, sizeof(TPerson));
    try
      Person := Pointer(Listbox1.Items.Objects[Listbox1.ItemIndex]);
      ShowMessage(PPerson(Person)^.Name + ' - ' + PPerson(Person)^.Vorname);
    finally
      FreeMem(Person, sizeof(TPerson));
    end;
  end;
end;

So steht nur mit in der Messagebox und nach dem dritten mal klicken, fliegt mir alles um die Ohren -> Ungültige Zeiger Operation. Wie also komme ich wieder an meine Objekte?

[Sharky]

Hai Luckie,

ich muss selber mal in meinem Code nach sehen. Aber ich meinte Du darst den Speicher nicht wieder freigeben!
AddObject verwaltet wohl auch nur einen Pointer auf den Object.

[Luckie]

Ja, sowas stand auch in der OH, aber dann ist ja der Sinn doch nicht mehr gegeben, also irgendwie oder so. :gruebel:

[Sharky]

Zitat:

Zitat von Luckie

.... aber dann ist ja der Sinn doch nicht mehr gegeben, also irgendwie oder so. :gruebel:

Ich weiss das ich da auch schwer gekämpft hatte.
Eigentlich sollte es heissen "AddPointerToObject". Mann muss also für jedes Item ein Object erzeugen.
Wichtig ist natürlich das man sich auch selber um die freigabe kümmern muss.

[Chewie]

Ist eigentlich ganz einfach, aber etwas ungewohnt: Du allozierst den Speicher zu dem Zeitpunkt, an dem du dein Record dem Listview übergibst. Freigeben darfst du den Speicher aber erst, wenn du auf dieses Datenrecord keinen Zugriff mehr brauchst, also spätestens im Listview-Destruktor, da, wie Sharky gesagt hat, ja nur ein Zeiger auf diese Struktur gespeichert wird.

[Luckie]

So. Genau so wie Chewie es sagt geht es:

Delphi-Quellcode:

type
  TPerson = record
    Name: string[255];
    Vorname: string[255]
  end;
  PPerson = ^TPerson;

procedure TForm1.btnAddClick(Sender: TObject);
var
  Person: PPerson;
begin
  new(person);
  Person^.Name := edtName.Text;
  Person^.Vorname := edtVorname.Text;
  Listbox1.Items.AddObject(IntToStr(Listbox1.Items.Count + 1), TObject(Person));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Name, Vorname: string;
begin
  if Listbox1.ItemIndex > -1 then
  begin
    Name := PPerson(Listbox1.Items.Objects[Listbox1.ItemIndex])^.Name;
    Vorname := PPerson(Listbox1.Items.Objects[Listbox1.ItemIndex])^.Vorname;
    ShowMessage(name + ', ' + Vorname);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  Loop: Integer;
begin
  for Loop := 0 downto Listbox1.Items.Count - 1 do
    Dispose(PPerson(Listbox1.Items.Objects[Loop]));
end;