我有一个2007年德尔福应用程序下面的代码: function TBaseCriteriaObject.RecursiveCount(
ObjType: TBaseCriteriaObjectClass): integer;
var
CurObj: TBaseCriteriaObject;
begin
result := 0;
{$WARNINGS OFF}
warning: passing argument 1 of 'bsearch' makes pointer from integer without a cast
入门以下警告和相应的代码是 Parent =bsearch((const size_t)ParentNum, ClauseVector, Size,
sizeof(CLAUSE),pcheck_CompareNu