library NewClasses;uses
SysUtils,
Classes,
DBTables,
DB,
StdCtrls;{$R *.res}procedure NewClass(ClassName, URL: string);
var Table: TTable;
begin
Table := TTable.Create(Self);
with Table do begin
//do something
end;
end;begin
end.系统提示:[Error] NewClasses.dpr(15): Undeclared identifier: 'Self'如何通过编译呢?
SysUtils,
Classes,
DBTables,
DB,
StdCtrls;{$R *.res}procedure NewClass(ClassName, URL: string);
var Table: TTable;
begin
Table := TTable.Create(Self);
with Table do begin
//do something
end;
end;begin
end.系统提示:[Error] NewClasses.dpr(15): Undeclared identifier: 'Self'如何通过编译呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货