根据国家名称,找首都名称: 先在object inspector上设置table1: table1.databaseName :=DBDEMOS; table1.tablename :=country.dbprocedure TForm1.Button1Click(Sender: TObject); var v,d: variant; begin d :=edit1.text; v := table1.lookup('name',d,'capital'); if not (varType(V) in [varNull]) then begin edit2.text :=v; end else edit2.text :='没找到!'; end;
edit2.text := Table1.lookup('Character',edit1.text,'Code');
你可以先查查那个函数的用法.呵呵,随处可见
我帮你做了
先在object inspector上设置table1:
table1.databaseName :=DBDEMOS;
table1.tablename :=country.dbprocedure TForm1.Button1Click(Sender: TObject);
var
v,d: variant;
begin
d :=edit1.text;
v := table1.lookup('name',d,'capital');
if not (varType(V) in [varNull]) then begin
edit2.text :=v;
end
else
edit2.text :='没找到!';
end;