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;