Hilfe mit einer ListBox und einem Edit programmieren

[Nils_13]

Hi,

ich möchte eine Hilfe wie in Delphi programmieren (wie der Index). Ich habe bereits ein Edit und eine ListBox. Im OnChange habe ich folgenden Code:

Delphi-Quellcode:

procedure Thelpform.SearchEditChange(Sender: TObject);
begin
  Searchbox.ItemIndex := Searchbox.Items.IndexOf(SearchEdit.Text);
end;

1. funktioniert der Code nicht (ich weiß wirklich nicht warum)
2. mit der Select-Methode wird es wahrscheinlich nicht funktionieren, da ich ja im Edit feld, immer noch frei schreiben will.
3. Was könnte ich jetzt tun ? Wie könnte ich so etwas programmieren ? Ich will dazu aber keine Programme und Hilfe Dateien benutzen.

Was wäre noch dafür geiegnet ?

Falls euch meine Beschreibungen nicht reichen, hier ein Screenshot:

[Nils_13]

Ich regel das ganze jetzt mit der LMD-ListBox.
Aber dann habe ich immer noch ein Problem: Es wird nur etwas markiert, wenn ich das gesamte Wort eingegeben habe, wie kann ich das verhindern ?

Delphi-Quellcode:

procedure TForm1.SearchEditChange(Sender: TObject);
begin
  Searchbox.ItemIndex := Searchbox.Items.IndexOf(SearchEdit.Text);
end;

Sry, für doppelpost :duck:

[arbu man]

Ich würd die listbox mit einer Schleife durchlaufen und pos verwenden:
(so in etwa)

Delphi-Quellcode:

var i: integer;
begin
  for i:=0 to searchbox.items.count-1 do begin
     if pos(lowercase(searchedit.text),lowercase(searchbox.items[i]))<>0 then begin
       searchbox.ItemIndex:=i;
       break;
     end;
  end;
end;

[Khabarakh]

Zitat:

Zitat von arbu man

Ich würd die listbox mit einer Schleife durchlaufen und pos verwenden:
(so in etwa)

Delphi-Quellcode:

var i: integer;
begin
  for i:=0 to searchbox.items.count-1 do begin
     if pos(lowercase(searchedit.text),lowercase(searchbox.items[i]))<>0 then begin
       searchbox.ItemIndex:=i;
       break;
     end;
  end;
end;

Funktioniert so deine Delphi-Hilfe :gruebel: ?

@Nils: Benutze das letzte Item, bei dem CompareText größer -1 ist.

[Nils_13]

Danke Danke, jetzt läuft es :-D

Nachtrag: Aber wenn ich r eintippe springt das Programm dann zum w, das darf dann nicht sein, wie kann ich das beseitigen ?

[A-M-X]

kanns sein dass es kein R gibt und er zum nächsten Buchstaben vom Alphabet in deiner Listbox springt?

[Nils_13]

Das ist mir klar, nur wie verhindere ich das ?

Cool der 1111 Beitrag.

[Khabarakh]

Welchen "Suchalgorithmus" benutzt du denn nun? Meiner sollte eigentlich funktionieren.

[Nils_13]

Ich benutze deinen.

Delphi-Quellcode:

for i:=0 to searchbox.items.count-1 do begin
     if pos(lowercase(searchedit.text),lowercase(searchbox.items[i]))<>0 then begin
       searchbox.ItemIndex:=i;
       break;
     end;
  end;

[Mystic]

Versuch mal = 1 statt <> 0