如何创建一个类并使用?怎么使用?
解决方案 »
- PerlRegEx bug 吗?
- 5 4 3 2 1 (想要2次重复,用属性。)
- 鼠标右键按下的事件是什么?
- 给DataSet中DateTime型赋值时的问题。
- 如何把text文件导入到SQL Server数据库中?
- 如何在程序中修改label的caption属性呢 ?
- 使用fastreport的高人一定要看的问题:编译打印问题
- QReport组件版上的QuickRep在打印预览时数据显示错误?
- 数据库单机版和网络版一样吗?
- 如何把一个小于65535的数字转化成2个字符来表示,请给出具体操作!谢谢!
- 怎样将光标定在,dbgrid的第一行,第一列上
- 加了一个打开对话框,如何使它打开时使用我设置的路径,例如程序本身的路径?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//定义自己的类
type
MyClass = class(TObject)
private
MYstr:string;
{ Private declarations }
public
procedure setMystr(str:string);
{ Public declarations }
end;var
Form1: TForm1;
implementation{$R *.dfm}procedure Myclass.setaaa(str:string);
begin
mystr:=str;
end;procedure TForm1.FormClick(Sender: TObject);
var
MyClass1:myClass;//应用自己的类的对象
begin
myclass1:=myclass.Create;
try
myclass1.setmystr('this is my class');
finally
myclass1.Free;
end;
end;end.