Converter arquivo texto unix gt;gt; windows
Converter arquivo texto unix >> windows
tentei fazer o seguinte teste :
converte +- só que a 2ª linha dá um salto a mais, só a 2ª , onde está a merrenda ?
tentei fazer o seguinte teste :
procedure TForm1.Button1Click(Sender: TObject);
begin
with TStringList.Create do
try
LoadFromFile(´c:\lixo\arq.TXT´);
Text := StringReplace(Text,chr(10),chr(13)+chr(10),[]);
SaveToFile(´c:\lixo\arq.TXT´);
finally
Free;
end;
end;
converte +- só que a 2ª linha dá um salto a mais, só a 2ª , onde está a merrenda ?
Motta
Curtidas 0