Hola de nuevo
Estoy intentando leer un archivo.txt y pasarlo a un memo. Eso funciona, que cosas!!!.
La cuestión es si el archivo lo leo con el notepad esta bien, pero si lo veo en el memo tengo dobles espacios.
Lo he abierto con un editor hexadecimal y hay caracteres de control como el 10, etc
intento leer letra por letra buscando esos caracteres pero no me salen
Hay forma de poder controlar esto?.
El archivo lo he leido con
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Fa: TextFile;
sLinea: String;
begin
AssignFile( Fa,'s94.txt' );
Reset( Fa );
i:=1;
while i<20 do
begin
ReadLn( Fa, sLinea );
i:=i+1;
Memo1.Lines.Add(revisalinea (slinea));
end;
CloseFile( Fa );
end;
function tform1.revisalinea(linea:string): string;
var
n:integer;
begin
for n:=1 to length(linea) do
begin
linea[n]:=char(84);
end;
revisalinea:=linea;
end;
he puesto una pequeña prueba convirtiendo todo a una letra pero me sigue haciendo lo mismo
gracias
tambien he probado poniendo #10 pero tampoco