Oh.. Das stimmt bei mir auch überein, wie ich gerade bemerkt habe. Offenbar passiert der Fehler beim Laden der Datei.
Also wenn ich eine Datei zum Beispiel mit dem Editor erstellt habe, diese lade und dann wieder abspeichere, ändert sich die Größe. Zum Laden verwende ich folgende Funktion:
Delphi-Quellcode:
try
AssignFile(Datei, 'dateiname');
Reset(Datei, 1);
repeat
BlockRead(Datei, Buffer, SizeOf(Buffer), NumRead); //Buffer ist array[1..1024] of Char
temp:=temp+Buffer;
until
(NumRead < SizeOf(Buffer));
finally
CloseFile(Datei);
end;
result:=temp;
Ich hatte nicht gedacht, dass der Fehler beim Laden passiert, da die Datei im Programm richtig angezeigt wird. Mache ich da irgendetwas falsch?