Einzelnen Beitrag anzeigen

Rolf Rostig

Registriert seit: 5. Mär 2003
Ort: Stade
117 Beiträge
 
Delphi 7 Professional
 
#1

Listbox mit Spalten aus Query

  Alt 1. Nov 2005, 13:17
Datenbank: Firebird • Version: 1.5 • Zugriff über: FIBplus
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?
Gruss
Rolf
  Mit Zitat antworten Zitat