Hola a tod@s.
tengo un problemilla bastante tonto, y NECESITO UNA MANO
Debo leer un fichero .txt y transformarlo en otro.
Para minimizar los accesos al disco lo cargo en un Memo (Memo1) y, al transformarlo lo voy pasando a un segundo Memo (Memo2), pues bien, el destino
solo me admite una línea (la primera que trata sea cual sea),
y además la trunca.
Código:
var wEntrada, wSalida : String[153];
begin
// limpieza del memo de salida y de errores
Memo2.Clear;
Memo3.Clear;
// bucle de tratamiento del memo de entrada
PageControl1.ActivePage:=TabSheet2;
Memo3.Lines.Append('***** Comienzo del proceso *****');
while (i<Memo1.Lines.Count) and (i<15) do
begin
wEntrada:=Memo1.Lines[i];
wSalida:=wEntrada;
Memo2.Lines.Append(wSalida);
Memo3.Lines.Add(wSalida);
showmessage('Línea '+Inttostr(i)+#13+wsalida);
i:=i+1; // avanzar en el fichero de entrada
end;
He repasado todos los parámetros del Memo, lo he borrado y sustituido por otros, le he añadido líneas en diseño,.... todo lo que se me ha ocurrido y nada de nada.
Si le añado líneas: Memo2.Lines.Append('Hola') antes del Memo2.Lines.Append(wSalida) las reconoce bien, pero después de ejecutar una sola vez esta sentencia ya no admite nada más.
¿qué me está pasando?