诸位大侠:
在定义book时出错,估计是在单元文件头部uses部分缺少和book相关的文件,又不知是哪个???????望指点============================================================
procedure Tgkfrm.PDJButton2Click(Sender: TObject);
var
b:book;
begin......