جستجو در table (بانک اطلاعاتی)

[مهرداد برنامه نویس]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 100 do
if table1['england']=edit1.text then
begin
label1.caption:=table1['iran'];
edit1.Clear;
table1.first;
end
else
begin
table1.prior;
end;
table1.Last;
end;

[عقاب طلایی]

میشه لطفا در مورد این کد بیشتر توضیح بدی که اصلا واصه چیه؟؟؟ :?:

[مهرداد برنامه نویس]

این کد محتویات edit1 را در table1 و فیلد england جستجو می کند و اگر بود فیلد معادل آن را نمایش می دهد(iran) :تشویق: :تشویق:

[MiRHaDi]

سلام
دستور Locate چه مشکلی داشت ؟
LookUp چی ؟
بای

[محمد میرمصطفی]

دو مسئله:
کد جناب مهرداد برنامه نویس رو رکودهای زیاد خیلی کند هست.
دستور Locate همیشه فقط اولین match رو پیدا می‏کنه.

[MiRHaDi]

سلام
اگر تعداد بیشتری رو نیاز دارید از
Find , FindNext استفاده کنید
بای

[Kamyar.Kimiyabeigi]

ببخشید با select کارتون راه نمیوفته ؟

[Delphi Skyline]

ببخشید با select کارتون راه نمیوفته ؟
چرا . با ADO COMMAND میشه .

[Kamyar.Kimiyabeigi]

من منظورم adoquery بود

[Delphi Skyline]

با اونم میشه .

[mehialdst]

سلام
بطور مثال
آقا اگه بخوایم بدون sql دنبال محمد در همه فیلد ها بگردیم و بخوایم محمد رضا و محمد علی و ... رو پیدا کنه چیکار باید بکنیم
=اگه نبود با sql هم باشه ممنون میشم=

[حمیدرضاصادقیان]

دوست عزیز اولا جایگاه سوال شما اشتباه است باید در خود بخش دلفی جستجو شود.
دوم اینکه میتوانی از دستور locate استفاده کنی.
یامیتونی اون قسمت رو براساس نامی که میخوای فیلتر کنی.

t_.Locate('Bnk',edit1.text,[loPartialKey])
t_.Filter := 'Bnk like '''+edit1.Text+'%''';