UNITS für VCL und FMX gleichzeitig verwenden

[uligerhardt]

Zitat von Sir Rufo:

Man schreibt einfach in eine StringList und diese StringList zeigt die Form einfach in dem Memo an.

... oder man definiert Write2Memo mit einem TStrings-Parameter anstelle von TMemo und übergibt Memo1.Lines an diesen. Etwa so:

Delphi-Quellcode:

procedure Write2Memo(ALines: TStrings);
begin
  ALines.BeginUpdate;
  try
    ALines.Add('111');
    ALines.Add('222');
    ALines.Add('333');
  finally
    ALines.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Write2Memo(Memo1.Lines);
  Write2Memo(ListBox1.Items); // Geht dann z.B. auch für Listboxen
end;