07. december 2005 - 13:20Der er
4 kommentarer og 1 løsning
Søg i listBox
Hej eksperter. Jeg er stødt på et lille problem.
Jeg har en listbox med en masse værdier:
eks: Dette er linje 1 Dette er linje 2 linje 3
Nu vil jeg gerne lave en søgefunktion der tjekker om et givent ord findes i listboxen. Jeg er helt ligegald med placeringen, skal bare vide om ordet eksisterer. Kan dette lade sig gøre?
procedure TForm1.Button1Click(Sender: TObject); var search: string; begin search := 'dette er en test'; if SendMessage(ListBox1.Handle, lb_selectstring, - 1, Longint(PChar(search))) <> LB_ERR then ShowMessage('Item selected: ' + IntToStr(ListBox1.ItemIndex)); end;
procedure TForm1.Button1Click(Sender: TObject); var i : integer; str : string; begin str := 'er'; for i := 0 to listbox1.Items.Count - 1 do begin if pos(str,listbox1.Items[i]) > 0 then showmessage(str + ' findes i linie ' + inttostr(i) + ' med teksten ' + listbox1.Items[i]);
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.