Avatar billede lubker Nybegynder
07. december 2005 - 13:20 Der 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?
Avatar billede stone Forsker
07. december 2005 - 13:35 #1
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;

hvis du vil søge via en edit....

search := 'edit1.text';
Avatar billede stone Forsker
07. december 2005 - 13:38 #2
ups afvis forkert svar....
Avatar billede lubker Nybegynder
07. december 2005 - 13:44 #3
OK.
Jeg skal ikke bruge søgeformularer.
Jeg har en variabel med det der skal søges efter.
Avatar billede stoney Nybegynder
07. december 2005 - 13:48 #4
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]);

  end;

end;

Stoney
Avatar billede lubker Nybegynder
07. december 2005 - 15:00 #5
tak for det.
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester