Suchen in ListBox ?

Hallo

mit dem Code wird zwar in ListBox1 nach dem Word gesucht und wenn was gefunden
wird auch markiert aber der Code sucht nur in dem ersten Word der Zeile

Ich habe ein Beispiel (sehe Anhang, wo es das Wort Tom nicht finden kann)

zusammenfalten · markieren

Delphi-Quellcode:

			{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

const

  indexStart = -1;

var

  search : array[0..128] of Char;

begin

  //make sure Length(Edit1.Text) <= 128

  StrPCopy(search, Edit1.Text) ;

  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  search : array[0..128] of Char;

  indexactuell : integer;

begin

indexactuell := Listbox1.Itemindex;

  //make sure Length(Edit1.Text) <= 128

  StrPCopy(search, Edit1.Text) ;

  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexactuell, LongInt(@search)) ;

  indexactuell := indexactuell + 1;

end;

Suchen in ListBox ?

Suchen in ListBox ?

Forumregeln