各位大侠,能帮我看看这段代码错在哪里吗?(100分)

  • 主题发起人 happyseasky
  • 开始时间
H

happyseasky

Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit2;
interface
uses SysUtils,DBTables;
type
a= class
public
FQuery:tquery ;
constructor create;
end;
implementation

{ a }

constructor a.create;
begin
tquery.Create (fquery);
fquery.SQL.Add ('dsgsd');
end;
end.
怎么改正,请问各位怎么改正这段码
 
constructor a.create;
begin
tquery.Create (fquery);-->fQuery=TQuery.Create(...);
fquery.SQL.Add ('dsgsd');
end;
 
少inherited
 
改为下:
constructor a.create;
begin
inherited; //如果没有继承其它什么也可不加
fQuery=TQuery.Create(self); //self不行可以试试nil
fquery.SQL.Add ('dsgsd');
end;
 
多人接受答案了。
 
顶部