[gelöst] Objectlist gibt nix aus?

[Chefx]

hey DPs,

Ich brauch eure Hilfe.
Ich will 2 werte (Strings) in eine Liste speichern, da dachte ich an eine Objectlist mit einem Objekt mit den 2 Strings gespeichert werden.
Wenn ich die wieder auslesen sind keine werte drin?

Delphi-Quellcode:

type
  tstrl = class
  private
    s1,s2:string;
    procedure clear;
  end;

 ...
var
  objectlist:TObjectList;
  strl:Tstrl;

implementation

{$R *.dfm}

//strl ---------------------
procedure tstrl.clear;
begin
  with self do begin
    s1:='';
    s2:='';
  end;
end;
//strl -------//////--------

procedure TForm1.FormCreate(Sender: TObject);
begin
  objectlist:=TObjectList.Create(true);
  strl:=tstrl.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  strl.s1:=edit1.Text;
  strl.s2:=edit2.Text;
  objectlist.Add(strl);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit3.Text:=Tstrl(objectlist.items[strtoint(edit5.text)]).s1;
  edit4.Text:=Tstrl(objectlist.items[strtoint(edit5.text)]).s2;

  { das habe ich auch probiert:

  strl:=Tstrl(objectlist.items[strtoint(edit5.text)]);
  edit3.Text:=strl.s1;
  edit4.Text:=strl.s2;
  }
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  strl.Free;
  objectlist.Free;  // <-- ungültiger Zeigeroperator
end;

am ende kommt noch ein schöner Ungültiger Zeigeroperator aber woran liegt das?
2 Fragen:
a) keine werte werden ausgelesen (keine fehlermeldung)
b) Ungültiger Zeigeroperator beim freigeben der Objectlist

Ich danke im voraus

MfG
Chefx

[daywalker9]

Die ungültige Zeigeroperation kommt dadurch, da du beim erstellen der Objectlist "true" mit gibst. Das bedeutet alle Elemente die in der Objectlist drin sind, werden beim Zerstören der Objectlist auch zerstört. Und du rufst ja eine Zeile vorher strl.free auf.

Edit: Und ändere den Titel von dem Thread. Es ist nicht gerade eindeutig was in diesem Thread stehen soll.

[Chefx]

danke daywalker9 ,

--->nach langen Überlegen <---

Es lag daran das ich nicht das Objekt immer wieder neu erstellt hab sondern immer das globale Objekt genutzt hab

Danke für den Tipp

MfG
Chefx