Hallo Focus,
Du solltest Dir vorher mal folgendes angeschaut haben:
Delphipraxis Combobox sortieren und filtern!
Dort wird ja schon beschrieben, das die doppelt vorkommenden Einträge nicht in die Combobox geschrieben werden sollen.
Jetzt musst Du Dir nur anschauen an welcher Stelle Du abfragst ob der Eintrag schon vorhanden ist!
Delphi-Quellcode:
if not Table.Active then exit;
combobox.Clear;
combobox.Sorted := true;
Table.First;
while not Table.Eof do begin
///*********************
u := trim(Table.FieldByName('D_Ort').AsString);
if u <> '' then begin
//*** an dieser Stelle fragst Du mit 'l' ab ob Einträge schon vorhanden sind *****
l := combobox.Perform(CB_FINDSTRING, -1, LongInt(PChar(u)));
if (l = CB_ERR) or ((l = 0) and (combobox.Items.Count = 0)) then begin
//***** an dieser Stelle trägst, bei Erfüllung Deiner IF-Bedingung den Eintrag dann in die Combobox ****
combobox.Items.Add(u);
end;
end;
Table.Next;
end;
//****
Ich hoffe ich konnte Dir damit erstmal Deinen Quellcode ein bißchen erklären, aber da hättest Du eigentlich auch von selber drauf kommen müssen...
Gruß
Mitchl
PS: Ich glaube zudem auch, dass Du die
falsche Routine vorgestellt hast, weil Du hier nicht nach Kunde, sondern nach dessen Ort sortieren möchtest, wenn ich das richtig verstanden habe!