procedure TfmMain.CheckFiltrClick(Sender: TObject); var s,sf:string;i,j:longint; begin //Перекодировка и проверка числового значения: try i:=StrToInt(Trim(edFiltr.Text)); if i>2000000000 then begin ShowMessage('Числовое значение слишком велико!'); AdoQuery1.Filtered :=False;CheckFiltr.Checked:=False;Exit; end; except on E: EConvertError do begin ShowMessage('Неверное числовое значение !'); AdoQuery1.Filtered :=False;CheckFiltr.Checked:=False;Exit; end; end; //Поиск FieldName по значению DisplayLabel из cbFiltr.Text: with ADOQuery1 do begin for j:=0 to FieldCount-1 do begin if Fields[j].DisplayLabel = cbFiltr.Text then begin sf:=Fields[j].FieldName; Break; end;
