Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#6

Re: ComboBoxen mit Daten füllen

  Alt 19. Okt 2007, 16:02
Hallo,

wenn die Komponente mit dem Namen ComboBox keine Eigenschaft Items besitzt, dann ist der Name wohl etwas irreführend.

Welchen Typ hat denn diese ominöse Komponente?

Delphi-Quellcode:
procedure LoadItems(items: TStrings; ds: TDataSet; const fieldName: string);
var
  bm: TBookmark;
begin
  with ds do
  begin
    bm := GetBookmark;
    DisableControls;
    First;
    items.Clear;
    while not Eof do
    begin
      items.Add(FieldByName(fieldName).AsString);
      Next;
    end;
    GotoBookmark(bm);
    FreeBookmark(bm);
    EnableControls;
  end;
end;
Grüße vom marabu
  Mit Zitat antworten Zitat