Wie Erkenne ich den Unterschied zwischen Unix und Win32 file

[DGL-luke]

Öhm...

Delphi-Quellcode:

function HasDOSLineBreaks(s:string):Boolean;
begin
  Result := Pos(#13#10,s) > 0;
end;

So weit wart ihr schon, oder?

Delphi-Quellcode:

procedure MakeDosLineBreaks(var s:string);
begin
  if not HasDosLineBreaks(s) then
    s := StringReplace(s,#10,#13#10,frReplaceAll);
end;

Und soweit auch?

Natürlich ist das nicht extrem fail-safe. Aber wenn klar ist, dass es reiner Text ist und entweder DOS oder Unix Linebreaks vorliegen, muss man kein Gehirn und keine Rechenkapazität und keine (potenziell verbuggten) LOC an irgendwelche Neu-Implementierungen von StringReplace verschnenden

EDIT: Aufruf auf korrekten Prototypen von StringReplace angepasst.