Text aus mehreren Edits in eine Listbox

Thema durchsuchen

Ansicht

Themen-Optionen

Text aus mehreren Edits in eine Listbox

Ein Thema von Superior · begonnen am 7. Nov 2004 · letzter Beitrag vom 7. Nov 2004

Vorheriger Beitrag

Nächster Beitrag

SirThornberry

(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge

Delphi 2006 Professional

Re: Text aus mehreren Edits in eine Listbox

7. Nov 2004, 20:04

so sollte es gehen

markieren

Delphi-Quellcode:

			begin

  Listbox1.Items.BeginUpdate;

  Listbox1.Items.Add(Edit1.Text);

  Listbox1.Items.Add(Edit2.Text);

  Listbox1.Items.Add(Edit3.Text);

  Listbox1.Items.Add(Edit4.Text);

  Listbox1.Items.EndUpdate;

end;

oder

markieren

Delphi-Quellcode:

			var LCount: Integer;

begin

  Listbox1.Items.BeginUpdate;

  for LCount := 1 to 4 do

    Listbox1.Items.Add(TEdit(FindComponent('Edit' + inttostr(LCount))).Text);

  Listbox1.Items.EndUpdate;

end;