关于DELPHI的一个值得讨论的问题，走过路过，一定进去坐坐呀，各位高手。

Question

ReadIcCardNum is a variable or is a function?

Answer 1

try to use procedure execute 
not open

Answer 2

是不是unitB(denlu)这个东东出错。

Answer 3

if datamodule4.ADODataSet2.Active then 
begin
    datamodule4.ADODataSet2.recordset.Close; 
    datamodule4.ADODataSet2.Close;
end;或者改用ADOQUERY。

Answer 4

TO NightCloud()　，taxi(游少爷)　
ReadIcCardNum 是一个接口函数，既：     function ReadIcCardNum:string;
     begin
     readicCardnum:= '';//提供DLL接口的（把卡插到读卡机中，读出卡号）
     end;    

Answer 5

单步执行看看到底在那条语句出错。
另：你的代码是不是这样写更好点？
procedure TForm3.Button1Click(Sender: TObject);
  var
  Icreadcard:string;
begin
  Icreadcard := ReadIcCardNum;
  if Icreadcard <>'' then edit1.text:= Icreadcard;
  checkvalid(edit1.text);
end;