Oberfläche für Freeware Kommandozeilen-Programm Unix2Dos

[Pr0g]

Warum schreibst du nicht direkt nen eigenes Tool, ist doch viel weniger Arbeit?

Delphi-Quellcode:

procedure Unix2Win(const AFileName: String);
var
  fFile: TStrings;
  i: Integer;
begin
  fFile := TStringList.Create;
  try
    fFile.LoadFromFile(AFileName);
    for i := 0 to fFile.Count - 1 do
      fFile[i] := StringReplace(fFile[i], #13, #10+#13, [rfReplaceAll]);
    fFile.SaveToFile(AFileName);
  finally
    fFile.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Unix2Win('c:\test.txt');
end;

MfG Pr0g