这个过程为什么写的不对?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
怎么回事?
解决方案 »
- 如何把两次查询的结果导出到同一个excel
- delphi MySQLAccess控件中的TMyQuery控件的Name修改不了 怎么办?
- D6,工程编译启动时的问题,有点诡异
- Group控件怎么用?
- (请问在表里添加数据时如果有的话就不加跳过去应怎么办好点)在线等待解决马上结帖
- 关于QReport的问题?
- 重分求取Rabin-Miller算法源码或Lehmann算法源码!!!!!!!!!!!!!!
- 如何把dbgrid中某一列的不同记录按要求不同颜色显示?在线
- 关于发布ActiveX控件时的数字签名
- [关于控件的问题:如何去掉已编译控件载程序开始时显示的对话框?]
- 高分求教:如何设置一个按钮的多行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中去......