Guten Morgen.
Zitat:
Hier nochmals der vollständige richtige Code
Sicher kannst du dir nur sein, wenn du die Funktionen auch richtig getestet hast. Es soll ja folgendes gelten:
Delphi-Quellcode:
var
s: String;
fn: TFileName;
begin
fn := ChangeFileExt(ParamStr(0), '.tmp');
s := FileToString(ParamStr(0));
StringToFile(fn, s);
if FileToString(fn) = s
then ShowMessage('passed')
else ShowMessage('failed');
end;
// procedure StringToFile(const FileName, Str: String);
Die Parameter der Prozedur StringToFile() solltest du besser als Konstanten übergeben. Ein Blick mit dem Windows Explorer auf das Dateisystem sollte dir offenbaren, dass die beiden Dateien aus meiner Testroutine einen Größenunterschied von 4 Byte aufweisen.
Zitat von
marabu:
Die Größe der ursprünglichen Datei darf natürlich nicht geschrieben werden, da so der Dateiinhalt verändert wird:
Grüße vom marabu