procedure TForm2.OKClick(Sender: TObject);
var
result: integer;
begin
form2.Table1.Open;
result:=form2.Table1.lookup('name;pasword',vararrayof([edit1.text,edit2.text]),'degree') ;
begin
if result<>0 then
begin
showmessagefmt('%d',[result]);
form2.Hide;
form1.show; end
else IF ISNULL(result) then
showmessage('出错了。');
end ;
end;
编译时保错Undeclared identifier(未说明的标识符
)是我把这个函数用错了吗,
var
result: integer;
begin
form2.Table1.Open;
result:=form2.Table1.lookup('name;pasword',vararrayof([edit1.text,edit2.text]),'degree') ;
begin
if result<>0 then
begin
showmessagefmt('%d',[result]);
form2.Hide;
form1.show; end
else IF ISNULL(result) then
showmessage('出错了。');
end ;
end;
编译时保错Undeclared identifier(未说明的标识符
)是我把这个函数用错了吗,
解决方案 »
- 源码批量添加删除Try?
- 在模态对话框中创建多个自身,怎么处理?请高手多多指教.......
- 关于组件设计时子组件不能存入DFM 问题
- Access表操作(覆盖数据)
- 如何判断本机上是否安装了SQLServer
- 请教savedialog问题
- 有没有人用delphi做过把oracle中的表转换成dbf?如解决加分500!
- 想知道怎么将StringGrid或者DBGrid中的数据导到Excel中呀?那位朋友有相关程序代码?100小分送上,不成敬意!
- 如何判断webbrowser显示的网页的控件是edit还是memo?
- 大哥大哥急急急
- 问:Delphi 有没有处理正规表达式的控件或库?
- 有关运算的问题?
function VarIsNull(const V: Variant): Boolean;
procedure TForm2.OKClick(Sender: TObject);
var
result: variant;
begin
form2.Table1.Open;
result:=form2.Table1.lookup('name;pasword',vararrayof([edit1.text,edit2.text]),'degree') ;
begin
if varisnull(result) then
showmessage('出错了。')
else
begin
showmessagefmt('%s',[result]);
form2.Hide;
form1.show; end ;
end ;
给小海加分建议小海老板给小海张工资