Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

AW: Firebird: Tabellen abfragen

  Alt 22. Okt 2010, 11:53
Du solltest noch den Übergabeparameter ändern:
Delphi-Quellcode:
procedure TForm1.fillCBTables(items:TStrings{cb: TComboBox});
begin
  Assert(Assigned(items));
  .....
  dataset.Open;
  while not dataset.EOF do
  begin
    items.Add(dataset.Fields[0].AsString);
    dataset.Next;
  end;
  ....
end;
Dadurch, dass du TStrings verwendest, bist du völlig frei, ob du die Tabellennamen in einer Combobox, ListBox, Memo oder was auch immer sehen möchtest.
Der Aufruf muss natürlich leicht angepasst werden:
fillCBTables(ComboboxTabellen.Items);
Und die Transaction kannst du Dir auch schenken; schliesslich liest du ja nur.
Andreas
  Mit Zitat antworten Zitat