Mal eine Frage zu diesem Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s : TStringList;
begin
cd := TCD.create;
cd.setValues(edit1.text, edit2.text, edit3.text);
{ s.create;
s.add('a');
cd.songTitles := s; }
cdList.add(cd); //funktioniert nicht??
stringGrid1.cells[1, 1] := cd.interpreter;
stringGrid1.cells[2, 1] := cd.albumTitle;
stringGrid1.cells[3, 1] := cd.genre;
edit1.text := intToStr(stringGrid1.rowCount);
cd.free;
end;
Wenn du oben die Instanz anlegst und der Liste hinzufügst, aber unten mit cd.Free die Instanz wieder freigibst - was meinst du denn, liegt in der Liste drinne?
Richtig - ein Verweis auf die Instanz die nicht mehr existiert, da du diese ja mit Free schon freigegeben hast. Somit kannst du schlecht nochmal irgendwas aus der Liste wieder rausholen...