Hallo Mitchl,
vielen Dank für dein Interesse und deine aufmunternen Worte
.
Also
Delphipraxis Combobox sortieren und filtern! hatte ich
auch schon gelesen. Ich hatte hier leider die falsche Routine rein-
kopiert und Du hast Recht damit, dass ich in dieser Routine nach dem Ort
sortiere.
So hier jetzt die Sortierung nach den Kunden:
Delphi-Quellcode:
procedure TForm60.FormActivate(Sender: TObject);
begin
if not Table2.Active then exit;
combobox2.Clear;
combobox2.Sorted := true;
Table2.First;
while not Table2.Eof do begin
t := trim(Table2.FieldByName('D_Kunde').AsString);
if t <> '' then begin
k := combobox2.Perform(CB_FINDSTRING, -1, LongInt(PChar(t)));
if (k = CB_ERR) or ((k = 0) and (combobox2.Items.Count = 0)) then begin
combobox2.Items.Add(t);
end;
end;
Table2.Next;
end;
Und hier ist halt das Problem mit den Kunden.
focus grüßt
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]