(DB)Listbox oder (DB)Combobox filtern?

[eddy]

Hallo Mitchl,

schau Dir das an:

Code:

{UP initialiesiert die ComboBox mit den zur Auswahl bestimmten Feldern, die
 der Tabelle Tab entnommen werden
 - Tab muß zuvor geöffnet worden sein
 - die sortierung wird immer auf true gestellt}
procedure UP_CBInit(Tab : TTable; combobox : TComboBox; fld : String);
var
  s : string;
  i : integer;
begin
  if not Tab.Active then exit;
  combobox.Clear;
  combobox.Sorted := true;
  Tab.First;
  while not Tab.Eof do begin
    s := trim(Tab.FieldByName(fld).AsString);
    if s <> '' then begin
      i := combobox.Perform(CB_FINDSTRING, -1, LongInt(PChar(s)));
      if (i = CB_ERR) or ((i = 0) and (combobox.Items.Count = 0)) then begin
        combobox.Items.Add(s);
      end;
    end;
    Tab.Next;
  end;
end;

Vielleicht hilt's weiter.

mfg
eddy