Wie Erkenne ich den Unterschied zwischen Unix und Win32 file

[Reinhard Kern]

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