Listbox einträge Markieren

[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