Mohoin Corpsman,
ab und zu hole ich mir Dateien von UNIX/Linux Maschinen um diese zu verarbeiten. Dazu
benutze ich folgende Prozedur. Wie Du siehst ersetzte ich das LF(#10) durch CRLF(#13#10).
Delphi-Quellcode:
//==============================================================================
// UNIX Datei in das Windows Format konvertieren
procedure Unix2Win(const AFileName: String);
var fFile : TStringList;
i : integer;
begin
fFile:=TStringList.Create;
try
fFile.LoadFromFile(AFileName);
for i := 0 to fFile.Count -1 do
fFile[i] := StringReplace(fFile[i], #10, #13#10,[rfReplaceAll]);
fFile.SaveToFile(AFileName);
finally
fFile.Free;
end;
end;
Ich hoffe es hilft Die weiter...
Gruß
ascotlx