Guten Tag
Ich hab ein Programm geschrieben welches zu Anfang Daten aus einem TFileStream in eine Listbox lädt:
Delphi-Quellcode:
procedure TDatein.LoadFromStream;
var
Stream : TFileStream;
begin
Stream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Speicher\Daten\1.OKM', fmOpenRead); //Er lädt hier die Streamdaten
Form2.ListBox1.Items.LoadFromStream(Stream); //Jetzt Lädt er alle Streamdaten in die Listbox
end;
Und am ende dies Daten aus der Listbox wieder speichert:
Delphi-Quellcode:
procedure TDatein.SaveToStream;
var
Stream : TFileStream;
begin
Stream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Speicher\Daten\1.OKM', fmCreate);
Form2.ListBox1.Items.SaveToStream(Stream);
end;
Hier tritt leider immer ein Fehler auf! Allerdings nur wenn diese Datei bereits besteht.
Hatt jemand ne Idee wie man den Fehler beheben kann oder warum er überhaupt auftritt?