工作需要从BCB转到DELPHI，问题非常菜，哥哥姐姐帮帮忙

Question

以前在BCB进行数据查询用的Filtered方法在DELPHI怎么用啊
我写了如下程序，出现莫名其妙的 错误
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOTable1.Filtered:=false;
  myfield:=combobox1.Text;
  myval:=edit1.Text;
  ADOTable1.Filtered:=true;
end;procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  case combobox2.ItemIndex of
    0:
    if(ADOTable1.FieldValues=myval)then
      Accept:=true
    else
      Accept:=false;
    1:
     if(ADOTable1.FieldValues<myval)then
      Accept:=true
    else
      Accept:=false;
    2:
     if(ADOTable1.FieldValues>myval)then
      Accept:=true
    else
      Accept:=false;
    3:
     if(ADOTable1.FieldValues <= myval)then
      Accept:=true
    else
      Accept:=false;
    4:
     if(ADOTable1.FieldValues>=myval)then
      Accept:=true
    else
      Accept:=false;
  end;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  ADOTable1.Filtered:=false;
end;end.
错误是：'[' expected but '=' found
'[' expected but '<' found
'[' expected but '>' found
'[' expected but '<=' found
'[' expected but '>=' found
 
哥哥姐姐帮忙看看，谢谢了

Answer 1

ADOTable1.FieldValues[i]
指出是哪一个field

Answer 2

不能用><这种号..只能用等于号..

Answer 3

没有指明下标ADOTable1.FieldValues[i]指明是哪个字段

Answer 4

FieldValue必须有Field的索引号..
可以是名称或INDEX数字..

Answer 5

case combobox2.ItemIndex of
    0:
    if(ADOTable1.FieldValues[x]=myval)then
      Accept:=true
    else
      Accept:=false;
    1:
     ....................

Answer 6

(ADOTable1.FieldValues[i]>=myval),要有数值才行