Booelovský výraz – Delphi – Fórum – Programujte.com

Udělal jsem si hledaní v Table takto

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Filter:='Zanr='+ QuotedStr(Edit1.Text);
end;

Ale chtěl bych kdyby to nenaslo hledaný výraz aby to vyhodilo

showmessage('neexistuje')

Něco jako

If Table1.Filter:='Zanr='+ QuotedStr(Edit1.Text) then //zde nic nechci

else showmessage('neexistuje')

bohužel tak mi to nejde

neni u Table1 nejaka metoda nebo cokoliv, co by mohlo znamenat pocet radku?

jen strilim od boku protoze tu delphi nemam ale treba:

Table1.Filter:='Zanr='+ QuotedStr(Edit1.Text);

if Table1.rows() = 0 then showmessage... // rows, count, ..... proste projit tu kontextovou napovedu metod+properties a najit co by mohlo byt pocet radku, nebo uspech/neuspech, chybove hlaseni ... whatever

#1 Fil
Nejsem si jistej ,ale podle me mas chybu v zapise ... 

If aaa = bbb then blabla // tohle je spravne a ty tam nas:
If aaa := bbb then  //  := prirazuje, takze to mas blbe. 

//  nevim, jestli to bude fungovat,ale ja bych zkusil:

If Table1.Filter <> 'zanr='+ QuotedStr(Edit1.Text) then
ShowMessage('neexistuje') else
blablabla

 kdyby jsi mel zajem, tak mam vyhledavani reseny pres SQL pomoci ComboBoxu,kde vyberu sloupec, ve kterym chci hledat a Editu, kam zapisu hledanej text.

Mam to zapsany pomoci Like, takze to vyhledava i casti retezce. 

#3 dyžon
Nejde to nevyhledává to furt to vyhazuje neexistuje:(

#4 Fil
no ale uz to aspon funguje ne ...  tak zkus pridat Label a vloz do nej tu cast co ma vyhldat:

Label1.Caption:= 'zanr='+ QuotedStr(Edit1.Text) // jsem zvedavej, co ti to vypise ..

a podle toho musis upravovat,aby to nakonec neco naslo ..

kdyby se radeji zameril na to co hleda a ne na kraviny od dyzona.. :D

no holt dyzon vypada ze vi co dela, (a hlavne mu haze hotove kusy kodu) - coz samozrejme neznamena ze to tak je :)

#5 dyžon

 takhle to tky nevyhledává

procedure TForm1.Button2Click(Sender: TObject);
begin

If Table1.Filter <> 'zanr='+ QuotedStr(Edit1.Text) then
ShowMessage('neexistuje') else Table1.Filter:='Zanr='+ QuotedStr(Edit1.Text);
end;

takhle zase jo, ale vypisuje to furt hlášku

procedure TForm1.Button2Click(Sender: TObject);
begin

Table1.Filter:='Zanr='+ QuotedStr(Edit1.Text);

If Table1.Filter <> 'zanr='+ QuotedStr(Edit1.Text) then
ShowMessage('neexistuje') else
end;

#6 KIIV
No hledam z edit.text v tabulce ve sloupci zanr..a nejde o kusu kodu..jen prostě delphi nerozumim..tak nevim a nemam čas brat delphi od začátku co co ma za funkce..

jinak jak rikam, ja jsem to resil pres SQL, takze vubec nevim, jestli je tenhle zapis spravnej ...  spis se mi to zda jako hovadina

Ted jsem nahlidl do knizky Delphi v prikladech a tam uvadi tenhle code:
 

If not Table1.FindKey([Edit1.Text]) then
ShowMessage('neni')  // tohle bude fungovat urcite

mas hledat kdyz napises v kodu  Table1.   a vyhodi to seznam vseho co tam muzes narvat...

pravdepodobne budes hledat neco jako Table1.RecordCount ...  pripadne si pred tim hodit  Filtered := false, pak hodit filter, a pak filtered true a podminku jestli tam neco je... ale otazkou jest, zda to nemusi byt jeste nejak zavolany

#6 KIIV
Nevim, jak jsi se ucil Delphi ty, ale ja jsem vsechno musel vycist z knizky a z netu, ve skole me to nikdo neucil, nevysvetloval jak co funguje a podobne (Ucim se to zhruba pul roku,proto jsem na slabe urovni , netvrdim,ze jsem expert,ale snazim se pomoct). Za kazdej funkcni kod,kterej mi prisel pod ruce jsem byl rad,protoze jen z tech funkcnich jsem se dokazal neco naucit a pochopit.  Ono je rozdil, mit ucitele a nebo jen hluchou, nemou knizku.
Proto si vetsinu (pocitanych) hodnot zobrazuju v Labelech, abych videl jak opravdu vypadaji a s cim se vlastne dal pracuje.
Ja vim, je to zdlouhavy, pomaly a mozna nekdy i zbytecny,ale nejsou vsichni odbornici jako ty. 

Snazim se jen pomoct.

#11 dyžon
Hoši nehadej te se oba to myslíte dobře..jenže já sem fkt v tomhle špatnej..nás cise na škole učili v delhi ve 3 ročníku asi půl roku a pak od te doby nic..takže umim jen základy a teď prostě mam jako ročníkovku práci v delphi:( a jak to asi mam udělat, když nás ve škole nic nenaučili pořádně:( strávim čas v knihách a nenetu co a jak ale prostě s toho to fakt nejde..jsem anititalent na delphi..dižon nejde to, nějaká chyba máš skype že bys mi řekl jak na to sql? KIIV je tam Table1.RecordCount , ale když nevim jak to mam použít tak to smenou je těžký..omlouvám se..

za me nic takovyho moc nebylo .. ucil sem se z napovedy a podle toho co hazela kontextovka...

z programovani me jinak nikdy nikdo nevodil za rucicku.. potreboval sem maximalne nasmerovani (jen stejne nebylo vetsinou od koho)

#13 KIIV
vidis, takze si urcite pamatujes, jaky to je mit neco co funguje.

To: fil, mrkni do profilu

#14 dyžon
koukám, máš ho zkrytý

#15 Fil
oprava skrytý

Použití Table1.Filter by mělo vypadat nějak takhle:
 

//nastaveni hodnoty filtruTable1.Filter :=  'Zanr ='  + QuotedStr(Edit1.Text); 
//aktivace filtruTable1.Filtered := True; 
//pokud je počet zaznamu v Table1 = 0, vyvolám Message 
if Table1.RecordCount = 0 then   ShowMessage('neexistuje'); 

Použití Filter a jeho aktivace (Filtered:=True) rovnou omezuje počet záznamů v Table1

Pokud jde jen o zjištění zda existuje hledaná hodnota v některém záznamu v Table1,
lze zřejmě použít Table1.FindKey... jak se píše někde výše, jen u Paradox nebo dBase tabulek to tuším vyžaduje definovaný index nad tabulkou. Nevím to přesně, nikdy jsem FindKey nepoužil

Další možnost je použít
Table1.Locate(...) - ta tě nastaví přímo na první záznam v tabulce, ve kterém najde v příslušném sloupci hledanou hodnotu. Počat záznamů (Table1.RecordCount) se přitom nezmění.

Další, dle mě nejlepší možností je místo TTable komponenty použít TQuery s parametrizovaným dotazem
a nastavovat hodnotu parametru.