مشكل كد نويسي براي جستجو در دلفي

[shaligar]

سلام خدمت دوستان . من يه بانك اكسس ساختم كه توش يه سري اطلاعات مثل نام و شماره تلفن و ادرس داره .. بعد توي دلفي يه فرم واسه جستجو تعريف كردم كه وقتي شماره تلفن رو وارد اديت كرد توي قسمت DBGrid1 كه ساختم اطلاعات بانك شامل اسم و تلفن و ادرس رو نشون بده اگه نبود هم كه بگه نيست...اما مشكل اينه كه كدي كه نوشتم يه ايراداتي داره كه دلفي قبول نكرد از دوستان خواستم خواهش كنم يه نگاهي بندازن بگن ايراد كجاست ....var s:string; beginif edit.Text'' thenbegin if s:='sabt='''+edit.Text+'''';ADOTable1.filter:=s;ADOTable1.filtered:=true;if ADOTable1.isempty=true thenbeginshowmessage(' ÏÝÊÑ ÞÏíã ãí ÈÇÔÏ ÝÞØ ÔãÇÑå ÏÝÊÑ ÑÇ æÇÑÏ ßäíÏ ');activecontrol:=edit;end;endelsebeginshowmessage('ãÞÏÇÑí æÇÑÏ ßäíÏ');activecontrol:=edit; end; end;

 

[dobidob]

دوست عزیز، این کد رو خودتون میتونید بخونید انصافاً؟ کدهای برنامه نویسی رو میبایست درون تگ code قرار بدید.

 

[shaligar]

سلام.درسته اما خب ديگه چون جوابمو زود گرفتم ديگه تاپيك رو اصلاح نكردم معذرت ميخوام ..ممنون