是一部详细介绍了DELPHI的经典著作

				基于字段的有效性验证:
				procedure TFrom1.aavalidate(sender:TField);
				var
				 T:ttable;
				begin
				T:=ttable.create(nil);
				t.databasename:=table1.databasename;
				t.tablename:=table1.tablename;
				t.open;
				t.setkey;
				t.fieldbyname((sender as Tfield).fieldname).asstring:=(sender as Tfield).value;
				if t.getokey then begin //如果在原来的数据表中找到了输入的数据
				 messagedlg('重复',mterror,[mbok],0);
				table1.cancel;//取消刚才的输入
				end;
				t.close;
				t.free;
				end;