Manchmal sind "komische" Zeichen in der Datei.
Öffne und speichere mal die
PAS mit einer TStringList (LoadFromFile und SaveToFile) ... das repariert Zeilenumbrüche, also mach #10, #13 und #13#10 einheitlich.
Und lösche alle Zeichen zwischen #0 und #32, welche kein Tab/Zeilenumbruch sind.
Delphi-Quellcode:
uses
System.IOUtils;
begin
var F := 'C:\irgendwo\deine.pas';
var C := TFile.ReadAllText(F).Replace(sLineBreak, #10);
for var i := 1 to Length(C) do
if (C[i] < ' ') and not (C[i] in [#9, #10]) then
C[i] := ' ';
TFile.WriteAllText(F, C.Replace(#10, sLineBreak));
end;
Du hast natürlich eine Versionierung und kannst, auch ohne vorheriges Backup, dann mal die beiden Dateien byteweise vergleichen.
