Listbox mit Spalten aus Query

[Rolf Rostig]

Hallo,

ich fülle eine Listbox bisher so:

Delphi-Quellcode:

with DM.QueryAuftrag do
   begin
    close;
    ExecQuery;
    listbox1.Items.clear;
    while not Eof do
     begin
      listbox1.Items.AddObject(FieldByName('Pos').asString + FieldByName('Name').asString,
        TObject(FieldByName('ID').asInteger));
      next;
     end;
   close;
  end;

Nun will ich die Listbox mit mehreren Spalten benutzen(Pos, Name , Ort).

Wie mach ich das?

[Lannes]

Hallo,

das könnte Dir weiterhelfen:
Die Entwickler-Ecke: ...mehrere Spalten in einer TListBox darstellen?

[Rolf Rostig]

Ja, geht.
Danke