我参照帮助问档
结果不行嘛?3x
结果不行嘛?3x
解决方案 »
- AdoQuery如何方便的从一组数据及中选出要查询的纪录?
- 100分求图标!
- 关于IdTCPServer不能触发OnDisconnect事件的问题
- 在程序中创建表时,如何动态生成表名,具体请看正文,谢谢!
- 100分再求:如何获取其它应用程序DBGrid中的值?这个问题希望有高手能够解决.
- 请教高手!一个属性值设定问题.
- 怎样使“开始”菜单中的“程序”菜单项不能用?
- Rave报表汉化的问题?
- 旧的LQ-150K打印机260元,当面试打的样张效果还可以,大家看值不值得买?
- 各位大虾救急啊,这个问题已经困扰我很久了。(有关DBMemo)
- 怎么将这段BCB代码用DELPHI实现?在线等~~~~~~~~~~~``
- Label的caption内容显示问题
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;这就是一个很简单的类的例子
单独写在一个单元中
写在你的窗口文件的原文件中
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
MyClass=class//自己定义的类
params1:integer;
params2:string;
procedure myproc(params:string);
end;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ MyClass }procedure MyClass.myproc(params: string);
begin
params2:=params;
end;end.