Listbox einträge Markieren

[delphis spassbremse]

Moinzen...

ich habe folgendes Problem...
Ich habe ca. 120 Benutzer in einer Listbox.

Jetzt will ich eine art suchfunktion einbauen,
dass wenn ich was in ein Edit Feld eingebe (z.B. "S")
dann, soll der erste Eintrag mit S markiert werde.
Wenn ich jetzt "Sa" eingebe, soll der erste
Eintrag mit "Sa" markiert werden usw.

Hat da jemand nen lösungsvorschlag??

[Neutral General]

Hi,

So ungefähr würd ichs machen :)

Delphi-Quellcode:

function MarkSearchResult(S: String): Integer;
var i: Integer;
    x: Integer;
begin
  for i:= 0 to ListBox1.Items.Count-1 do
  begin
    x := pos(S,ListBox1.Items[i]);
    if x = 0 then
      Result := i;
      ListBox1.ItemIndex := Result;
      exit;
    end;
  end;
end;

Gruß
Neutral General

[delphis spassbremse]

Also die Idee war gut... leider hats nicht gefunzt^^

also ich hab den mal ein bissl umgeschrieben... (der geht auch^^)

Delphi-Quellcode:

function MarkSearchResult(S: String; box: Tlistbox): Integer;
var i: Integer;
    x: Integer;
begin

  for i:= 0 to box.Items.Count-1 do
  begin
    x := pos(S,box.Items[i]);
    if x = 1 then
    begin
      Result := i;
      box.ItemIndex := Result;
      exit;
    end;
  end;
end;

Danke nochmal^^

MFG

[marabu]

Hallo,

das gewünschte Verhalten ist das Standardverhalten von TListBox - es sei denn man schaltet es ab (AutoComplete).

Grüße vom marabu