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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
Ny bruger
Nybegynder
Opret
Preview
