这个过程为什么写的不对?unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables;type
TForm1 = class(TForm)
Query1: TQuery;
procedure ww(queryx:tquery;xx:string);
private
{ Private declarations }
public
{ Public declarations } end;var
Form1: TForm1;implementation
procedure TForm1.ww(queryx:tquery;xx:string)
begin
with queryx do
begin
close;
sql.Clear;
sql.Add(xx);
open;
end;
end;
{$R *.dfm}end.
提示出错[Error] Unit1.pas(25): ';' expected but 'BEGIN' found
怎么回事?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables;type
TForm1 = class(TForm)
Query1: TQuery;
procedure ww(queryx:tquery;xx:string);
private
{ Private declarations }
public
{ Public declarations } end;var
Form1: TForm1;implementation
procedure TForm1.ww(queryx:tquery;xx:string)
begin
with queryx do
begin
close;
sql.Clear;
sql.Add(xx);
open;
end;
end;
{$R *.dfm}end.
提示出错[Error] Unit1.pas(25): ';' expected but 'BEGIN' found
怎么回事?
解决方案 »
- delphi 调用VC写的动态链接库问题
- 急,急!!!关于 ClientSocket问题,明天就要交任务
- 如何在intraweb中加如背景图????
- fastereport问题(很有挑战性,高手进来试试)
- 一个游戏程序的画面,Delphi5中不闪烁,Delphi6中却闪烁,为什么?
- 在 Delphi 怎样生成 Windows 关机时的屏幕啊!
- 高分求教利用TclientDataSet写入Blob字段的方法!
- 如何使用InstallShield 在安装时将信息写入注册表?
- 存储过程的问题。
- 锁定计算机?
- 高分求教:如何设置一个按钮的多行Caption!在线等待
- 救急,怎样用代码自定义打印机张的大小???
procedure TForm1.FormCreate(Sender: TObject);
var
ss:string;
begin
ss:='select * from zggl order by xh';
tform1.ww(query1,ss);
end;end.
出错,[Error] Unit1.pas(45): This form of method call only allowed for class methods
为什么?
form1.ww(query1,ss);
直接ww(query1,ss)
或 Form1.ww(query1.ss);
tform1是类,Form1是Tform1类的对象/实例.
还得把你的过程声明放入定义窗体的PUBLIC中去......