var
AwhereClause: String;
begin
if Trim(edtName.Text) <> '' then
AWhereCluase := 'Field1 like ''%' + edtName.Text + ''''; یا QutedStr
if Trim(edtSirName) <> '' then
begin
if AWhereClause <> '' then AwhereClause := AwhereClause + ' and ' ;
AWhereClause := ' Field2 like ''%' + edSirName.Text + '''';
end.
و به همین منوال....
البته کلا من یک تابع AddCond نوشتم که خودش چک میکنه و And رو میزاره، یک تابع هم نوشتم که مقداری که قراره بعنوان نتیجه باشه رو چک میکنه مشکلی نداشته باشه (مثلا اگه توش ' داشت بکندش '' و ...)
البته اگر با پارامتر هم کتپار کنی خیلی خوبه ولی خب پارسر پارامترها خیلی کنده، برای همین زیاد توصیه نمیشه با پارامترها به این روشی که دوستمون کار کرده کار بکنی...
راستی به چی دقت کنه درست میشه؟!!!