Cita:
Empezado por donald shimoda
Estas intentando devolver un objeto que destruyes en la linea posterior.
|
Estoy de acuerdo con el amiguito Donald
.
También podrías no crearte el TStrings y mandarle directo a tu función Memo.Lines que ya es un TStrings. Tu codigo quedaría así:
Código Delphi
[-]
procedure TForm1.GetStrings(miLista : TStrings);
begin
miLista.Add('uno');
miLista.Add('dos');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetStrings(Memo1.Lines);
end;
Saluditos