donde está el error? :S

[jachguate]

Empezado por jorodgar

Lo que sucede es que memo1 no se llena con los datos del memo2.

Si ya lo habia dicho yo...

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; //siempre liberar la memoria!
  end;
end;

Habrán otras formas de hacerlo... esta al menos debiera funcionar correctamente.

Hasta luego