البحث في الـ dbgrid بناء على عدد صحيح وليس String

[Zinab]

منذ مدة لم أدخل المنتدى ونسيت هذا السؤال ولم أعود له إطلاقا.

شكرا لك أخي لؤي. للأسف طريقتك لن تعمل بإجراء واحد يجب عمل أكثر من إجراء لمكافئة الطريقة التي وضحتها.

ولكن بالمناسبة. لقد حللتها قبل شهر

كود :

procedure TForm.AdoTableFilterRecord(DataSet: TDataSet;var Accept: Boolean); var Value1, Value2, Text: String; begin Text := SearchEdit.Text; if Trim(Text) = '*' then Exit; Value1 := DataSet.FieldByName('ID').AsString; Value2 := DataSet.FieldByName('Name').AsString; Accept := Pos(Text, Value2) > 0; if not Accept then begin // Accept := Pos(Text, Value1) > 0; //if to use id as string Accept := StrToIntDef(Text, -1) = DataSet.FieldByName('ID').AsInteger; end; end;