我设计了一个类 如下
type TSQL = class private public
gCon : TADOConnection;
gQuery : TADOQuery;
gDaSource : TDataSource;
procedure SQLStart;
procedure SQLDataSetCommandText(str: string);
procedure SQLQueryOpenText(str: string);
procedure SQLQueryExecText(str: string);
procedure SQLFreeAll;
function QueryOpen(str: string) : string;
function SExist(AStuNum : string) : Boolean;
end;
var
gSQL : TSQL;
声明过程之后写了声明函数的过程,但是编译时出现
[Pascal Error] SQLUnits.pas(17): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLStart'
[Pascal Error] SQLUnits.pas(18): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLDataSetCommandText'
[Pascal Error] SQLUnits.pas(19): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLQueryOpenText'
[Pascal Error] SQLUnits.pas(20): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLQueryExecText'
[Pascal Error] SQLUnits.pas(21): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLFreeAll'
这是为啥啊
type TSQL = class private public
gCon : TADOConnection;
gQuery : TADOQuery;
gDaSource : TDataSource;
procedure SQLStart;
procedure SQLDataSetCommandText(str: string);
procedure SQLQueryOpenText(str: string);
procedure SQLQueryExecText(str: string);
procedure SQLFreeAll;
function QueryOpen(str: string) : string;
function SExist(AStuNum : string) : Boolean;
end;
var
gSQL : TSQL;
声明过程之后写了声明函数的过程,但是编译时出现
[Pascal Error] SQLUnits.pas(17): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLStart'
[Pascal Error] SQLUnits.pas(18): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLDataSetCommandText'
[Pascal Error] SQLUnits.pas(19): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLQueryOpenText'
[Pascal Error] SQLUnits.pas(20): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLQueryExecText'
[Pascal Error] SQLUnits.pas(21): E2065 Unsatisfied forward or external declaration: 'TSQL.SQLFreeAll'
这是为啥啊
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货