Einzelnen Beitrag anzeigen

Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.746 Beiträge
 
Delphi 2007 Professional
 
#10

AW: UNITS für VCL und FMX gleichzeitig verwenden

  Alt 16. Mai 2014, 11:09
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;
Uli Gerhardt

Geändert von uligerhardt (16. Mai 2014 um 11:14 Uhr)
  Mit Zitat antworten Zitat