Estimados
Tuve que hacer un proceso que lea un archivo TXT, línea a línea, para incorporar información en una base de datos.
Al leer los datos de un archivo descargado de un FTP, con formato UNIX, en el cual los renglones finalizan con #10 y no con #13#10, como lo espera el ReadLN, no funcionaba bien.
Estuve buscando y encontré algunas soluciones. La mejor la pongo a dispocisión de quienes la necesiten:
Código Delphi
[-]
procedure ConvertirUNIX2DOS(Arc: String);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.LoadFromFile(Arc);
SL.SaveToFile(Arc);
finally
SL.Free;
end;
end;
Saludos