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)
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;