Cita:
Empezado por jorodgar
Lo que sucede es que memo1 no se llena con los datos del memo2.
|
Si ya lo habia dicho yo...
Cita:
Empezado por jachguate
Espero que sepas realmente lo que queres conseguir con esto.
|
Es como si sos médico y al consultorio viene alguien a preguntarte la dosis correcta de diazepan. Pues le decis cual es la dosis y punto. En cambio si viene y te dice que quiere estar despiérto toda la noche, pues es distinto, no.
Si lo que queres es que el memo1 tenga las líneas que produce la función, pues hay varias formas "sanas" de hacerlo.
Una:
Código Delphi
[-]
Function TForm1.CrearLineas : TStringList;
Begin
result := TStringList.Create;
result.Add('Esto es una prueba, línea 1');
result.Add('Esto es una prueba, línea 2');
result.Add('Esto es una prueba, línea 3');
result.Add('Esto es una prueba, línea 4');
result.Add('Esto es una prueba, línea 5');
end;
Procedure TForm1.Button1Click(Sender : TObject);
Var
Líneas : TStringList;
Begin
Lineas := CrearLineas;
try
Memo1.Lines.Assign(Lineas);
finally
Lineas.Free; end;
end;
Habrán otras formas de hacerlo... esta al menos debiera funcionar correctamente.
Hasta luego