procedura de cautare in doua listbox-uri

[dannypapuc]

salt.
am incercat sa fac si eu o procedura de cautare in doua sau mai multe listbox/uri insa nu mi/a reusit.

nu imi dau seama cum pot compara fiecare element dintr/un listbox cu un cuvant care il bag eu in edit1.

eu am incercat ceva de genul
if ListBox1.Items=Edit1.Text then showMessage('elementul este in lista 1')  insa nu vrea.
are cineva o idee?????
v/asi ramane dator...

[AdyX]

Cod:

function cauta(s: string):boolean;
var i, n: word;
begin
  n:=ListBox1.Items.Count;
  for i:=1 to n do
    if ListBox1.Items[i]=s then begin
      cauta:=true;
      exit;
    end;
  cauta:=false;
end;

Cam asa ceva.

[dannypapuc]

multumesc pt idee.
acesta este procedura care imi functioneaza pt un listbox

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
n:=ListBox1.Items.Count;
for i:=1 to n do
begin
if ListBox1.Items=Edit1.Text then
begin
ShowMessage('element in lista1');
end;
exit;
end;
end;
end.

[AdyX]

Hinturi (:
1. Foloseste tag-ul CODE. E mult mai citet.
2. Este necesar sa foloseste BEGIN si END doar daca ai mai mult de o instructiune. In cazul tau, nu era nevoie.
3. Procedura exit iese fortat dintr-ul subprogram. Avand in vedere ca ea este ultima instructiune, din nou, nu era nevoie.

Bafta!

[dannypapuc]

din pacate m/am inselat...
procedura functioneaza doar daca este un element in listbox...
nu stiu cum sa o rezolv...

ma poate ajuta cinevaaaaaa,va rog multttt????????????


spre exemplu daca am mai multe listboxuri??
 era buna o functie,pe care sa o apelez la fiecare listbox,insa nu reusesc sa o scot la cap...

[AdyX]

Cod:

function cauta(s: string; a: TListBox):boolean;
var i, n: word;
begin
  n:=a.Items.Count;
  for i:=0 to n-1 do
    if a.Items[i]=s then begin
      cauta:=true;
      exit;
    end;
  cauta:=false;
end;

O folosesti sub forma

Cod:

if cauta('blalba', ListBox1) then...

Desigur, in loc de ListBox1 poti pune numele ListBox-ului in care vrei sa cauti.

Nota: Nu am luat in considerare, in prima varianta, faptul ca indicii liniilor incep de la 0, asa ca primul cod e gresit. Imi cer scuze

[SkullAds]