Zitat:
Delphi-Quellcode:
procedure TEinheitTyp.InDateiSchreiben (var Fs : TFilestream; Filename : String);
(* -------------------------------------------------------------------- *)
var
len : integer;
begin
DeleteFile(Filename);
//Allgemeine Werte
FS.Position:=0;
...
Denk mal drüber nach, was du hier genau tust.
Du hast einen geöffneten FileStream und versuchst genau diese Datei zu löschen.
= Ast absägen auf dem man sitzt
Ich habe dazu nochmal ne Frage, Was spricht dagegen, wenn man eine vorhandene Datei löscht, sie neu erzeugt und die geänderten Werte reinschreibt, oder muss das Deletefile viel eher kommen?? Ich speichere ja nur immer einen Block an Informationen in der Datei und nicht zehen Objekte hintereinander