请问用lookup()搜寻如何实现?

Question

Label1.Caption:=Table1.Lookup('aaa;bbb',VarArrayOf(['100','150']),'ccc');

Answer 1

to: Carfield
为什么每次编译时都会提示VarArrayOf错误？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  V: Variant;
  C: Integer;
  A: String;
begin
  V := Table1.Lookup('Company;State',
    VarArrayOf(['Blue Sports', 'OR']),
    'CustNo;Addr1');
  if not (VarType(V) in [varNull]) then 
  begin
    C := V[0];
    A := V[1];
    ShowMessage(‘successfuel’);
  end
  else
    ShowMessage('Search unsuccessful!');end;