Kompakte Datenbank

[eddy]

Hallo Mike_C,

anbei sende ich Dir erstmal ein UP (=Unterprogramm) zum Füllen Deiner ComboBoxen mit Daten aus einer Datenbank. Die Bedingungen, welche ComboBox mit welchem Feld aus welcher Datei gefüllt werden soll, kannst Du ja drum herum schreiben.

Delphi-Quellcode:

{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;
  gefu : boolean;
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
      gefu := false;
      for i := 0 to combobox.Items.Count - 1
        do gefu := gefu or (s = combobox.Items.Strings[i]);
      if not gefu then combobox.Items.Add(s);
    end;
    Tab.Next;
  end;
  combobox.DropDownCount := combobox.Items.Count;
  if combobox.DropDownCount > DropDownCount then combobox.DropDownCount := DropDownCount;

  Tab.Filter := '';
  Tab.Filtered := false;
end;

Vielleicht hilft's weiter.

mfg
eddy