Zitat von
ascotlx:
da bin ich wieder :???:
@Reinhard
hast Du eine andere Lösung parat ?? oder anders gefragt, wie würde Dein Programm aussehen ??
Gruss
ascotlx
Hallo, habe ich schon in Nachricht 16 beschrieben:
"du must doch nur die Datei als file of char solange zeichenweise lesen, bis ein CR oder LF auftaucht: CR -> Windows, LF -> Unix. Es gibt zwar theoretische Ausnahmen wie z.B. herrenlose LFs in Windowstexten, aber für übliche Textdateien ist das 99.9 % sicher."
Eine einfache Möglichkeit:
Delphi-Quellcode:
function IsUnixText (FName : ShortString) : boolean;
var tf : file of char;
nch : Char;
begin
AssignFile (tf,FName);
Reset (tf);
repeat
if not Eof (tf) then read (tf,nch);
until (nch = #10) or (nch = #13) or Eof (tf);
Close (tf);
Result := nch = #10;
end;
{ ungetestet }
Gruss Reinhard