Forum: Programmieren allgemein
by DeddyH,
31. Jul 2009
Entweder beide Klassen verwenden eine eigene Instanz von TStringlist, dann musst Du sie Assign zuweisen. Oder eine Klasse legt die Instanz an und die andere erhält nur die Referenz darauf, dann musst Du zuweisen. Im Moment mischst Du beides, das geht nicht gut.
Nochmal 2 Beispiele zur Verdeutlichung:type
TTest = class
strict private
FList: TStrings;
public
constructor...
Forum: Programmieren allgemein
by DeddyH,
31. Jul 2009
procedure TForm1.FormCreate(Sender: TObject);
begin
DateiArbeit1 := TDateiArbeit.create(nil, 'Sensordatenbank.xls', true);
end;
Das dürfte ein Speicherleck geben, da hier im Gegensatz zu Deinem Code kein Owner angegeben wurde, welcher sich um die Freigabe kümmert.
Zum 2. Fehler:
Ändere das mal inMemo1.Lines.Assign(DateiArbeit1.Dateipfad);
So wie oben setzt Du die Instanz von...