wieso markiert es kein Text?

[Newcomer411]

hallo,
habe folgendes Problem:
will über eine Editfeld text eingeben und in einer listbox markiert anzeigen lassen (wenn vorhanden)
(so in der wie eine schnellsuche in einer listbox nach einem bestimmten eintrag)

allerdings sucht er bei mir nur zahlen...
ist mit dem code was falsch?

Delphi-Quellcode:

 entries.ItemIndex := entries.items.IndexOf(Edit_schnellzugriff.Text);

[3_of_8]

Müsste so passen. Lass dir die Werte mal im Evaluator ausgeben.

[Newcomer411]

Zitat:

Zitat von 3_of_8

Müsste so passen. Lass dir die Werte mal im Evaluator ausgeben.

wo und wie ausgeben? was ist ein Evaluator?

[Newcomer411]

okay. hab jetzt was entdeckt...

wenn ich ins Edit-feld das GANZE Wort z. B. "Delphi 6" eintippe, dann markiert das Programm die Auswahl in der Listbox.

Ich will aber das er das Wort auch markiert, wenn ich nur das "D" eintippe... das Programm soll Buchstabe für Buchstabe suchen und markieren.


hoffe da gibt es eine lösung für.

[mkinzler]

Dann wirst du mit .IndexOf nicht weiterkommen, weil hierbei der gesamte String gliech sein muß. Dir wird nichts anderes übrigbleiben als jeden Eintrag nach dem Teilstrimg zu durchsuchen.

[Cöster]

Sind die Einträge in der ListBox denn sortiert?
Dann müsstest du im OnChange des Edits erst nach dem ersten Begriff suchen, der den gleichen Anfangsbuchstabenn hat, wenn dann der zweite Buchstabe eingegeben wird, musst du nur ab dieser Stelle weitersuchen. Das geht aber nur, wenn jeweils der letzte Buchstabe im Edit geändert wurde. Ansonsten müsstest du wohl nochmal alles durchsuchen.

[Newcomer411]

steh ein bisschen auf dem schlauch...
ja die einträge in der listbox sind sortiert.

wie genau? check das grad überhaupt nicht.

[anse]

Jo, du mußt alle Entries einzeln vergleichen, in etwa so:

Delphi-Quellcode:

entries.items.ItemIndex := -1;

for i:=0 to entries.items.count-1 do
begin
  // Länge prüfen
  if Length(entries.items[i]) < Length(Edit_schnellzugriff.Text)) then
    continue;
  // Textanfang vergleichen (todo: klappt das auch case-insensitive?)
  if Edit_schnellzugriff.Text = Copy( entries.items[i], 1, Length(Edit_schnellzugriff.Text) ) then
  begin
    entries.items.ItemIndex := i;
    break; // Nicht sinnlos weitersuchen
  end;
end;

[marabu]

Hallo,

eine Präfixsuche geht auch so:

Delphi-Quellcode:

procedure TDemoForm.EditChange(Sender: TObject);
begin
  with Sender as TEdit do
    ListBox.ItemIndex := ListBox.Perform(LB_FINDSTRING, -1, Integer(PChar(Text)));
end;

Grüße vom marabu

[Newcomer411]

danke @all!

@ marabu, genau das habe ich gesucht, danke!