FileSize arbeitet ungenau oder ?

[LoL]

hi

etwa so:

Delphi-Quellcode:

var fs : TFileStream;
begin
  fs := TFileStream.Create('Dateiname',parameter);
end;

Parameter:
fmCreate Es wird eine Datei mit dem angegebenen Namen angelegt. Ist eine Datei mit diesem Namen bereits vorhanden, wird die Datei zum Schreiben geöffnet.
fmOpenRead Die Datei wird ausschließlich zum Lesen geöffnet.
fmOpenWrite Die Datei wird ausschließlich zum Schreiben geöffnet. Beim Schreiben in die Datei wird der aktuelle Inhalt vollständig ersetzt.
fmOpenReadWrite Die Datei wird so geöffnet, daß der aktuelle Inhalt geändert werden kann, ohne daß er ersetzt wird.

natürlich musst du die unit dazu noch einbinden
gruß christoph