如何把unix格式的文本文件转为win32格式的文本文件？

Question

如何把unix格式的文本文件转为win32格式的文本文件？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
  function UnixToDos(sUnixText:string):string;           //unix文本格式到DOS文本格式的转换
  var
    ch,ch1      : char;
    sReturn : string;
    i       : integer;
  begin
    sReturn := '';
    for i:=1 to length(sUnixText) do begin
      ch := sUnixText[i];
      case ch of
        #$A :if(ch1<>#$D) then sReturn := sReturn + #$D#$A
             else
                  sReturn := sReturn + ch;
        #$04:begin
               sReturn := sReturn + #$1A;
               break;
             end
      else
             sReturn := sReturn + ch
      end;
      ch1 :=ch;
    end;
    result := sReturn
  end;
var S:TStrings ;i:integer ;F:Textfile;
begin
  s := TStringlist.create ;
  S.LoadFromFile('C:\1210.txt') ;//加载文件
  AssignFile(f,'c:\1.txt') ;
  if  fileexists('c:\1.txt') then
  begin
    Reset(f);
    Rewrite(f);
    for i:=0 to S.Count-1 do
    begin
      Write(f,UnixToDos(S[i])+#13#10);
    end;
    CloseFile(f) ;
  end;
  S.Free ;
end;文本的最后两行好想还有几个空格子？