Wie Erkenne ich den Unterschied zwischen Unix und Win32 file

[DGL-luke]

grmpf.... ok, reinhard:

Delphi-Quellcode:

function FileHasDOSLineBreak(fName: string): Boolean;
var
  c: char;
  i: Integer;
begin
  with TFileStream.Create(fName, fmOpenRead) do
  try
    c := #0;
    while Position < Size do
    begin
      Read(c,SizeOf(c));
      if c = #10 then
      begin
        Result := false;
        Break;
      end
      else if c = #13 then
      begin
        Result := true;
        Break;
      end
    end;
  finally
    Free;
  end;
end;

So zufrieden?