定义是这样的: function TDataModule4.IsMutiClass(const Vocable: string; var CXToken, CX: string; var CXCount: Integer; ConvCX: Boolean = True): Boolean; begin Result := False; with tMutiCls do//是个表 begin if Active then if Locate('Word',Vocable,[]) then begin CXToken := FieldByName('Flag').AsString; if ConvCX then CX := GetClasses(CXToken,CXCount); Result := True; end; end; end; 用if TDataModule4.IsMutiClass(voc, cxToken, CX, CXCount) then 调用,编译到这句就报错,有什么问题吗?
不是这样调用呀! 用if DataModule4.IsMutiClass(voc, cxToken, CX, CXCount) then
function TDataModule4.IsMutiClass(const Vocable: string; var CXToken,
CX: string; var CXCount: Integer; ConvCX: Boolean = True): Boolean;
begin
Result := False;
with tMutiCls do//是个表
begin
if Active then
if Locate('Word',Vocable,[]) then
begin
CXToken := FieldByName('Flag').AsString;
if ConvCX then CX := GetClasses(CXToken,CXCount);
Result := True;
end;
end;
end;
用if TDataModule4.IsMutiClass(voc, cxToken, CX, CXCount) then
调用,编译到这句就报错,有什么问题吗?
用if DataModule4.IsMutiClass(voc, cxToken, CX, CXCount) then