Suchen Kunden in der Combobox bei Namensähnlichkeiten

[focus]

Tach auch,
ich habe meine Combobox so gefüllt( siehe unten), aber die Kunden zb. Kreuz, Alte und Hase stehen nicht drin weil ich noch Kunden habe die Kreuzkamp, Alte-Stadt und Haselünner heissen.
Was muss ich ändern? :?:

Delphi-Quellcode:

 if not Table1.Active then exit;
  combobox3.Clear;
  combobox3.Sorted := true;
  Table1.First;
  while not Table1.Eof do begin
///*********************
   if table1['D_Kunde'] = ComboBox2.Items[ComboBox2.ItemIndex] then begin
///*********************
    u := trim(Table1.FieldByName('D_Ort').AsString);
    if u <> '' then begin
    l := combobox3.Perform(CB_FINDSTRING, -1, LongInt(PChar(u)));
      if (l = CB_ERR) or ((l = 0) and (combobox3.Items.Count = 0)) then begin
        combobox3.Items.Add(u);
      end;
    end;
///**********
    end;
    //****

:coder:

[Edit=Sakura]DELPHI-Tags gesetzt.[/Edit]

[focus]

Ich habe noch festgestellt, dass wenn der Kundenname länger ist, es
funktioniert. Grafschafter findet er obwohl Grafschafter Klinikum auch drin steht. Wer hilft mir :( :?:

[Mitchl55]

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

:coder:

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!

[focus]

Hallo Mitchl,
vielen Dank für dein Interesse und deine aufmunternen Worte :wink: .
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]