请各位帮忙,我是新手,关于类的建立和引用。

maleswallow 2003-08-22 02:37:14
我对于类的建立和引用的问题不是很清楚,请问我在一个新的unit中怎样建立一个类和他的公用函数在窗体的unit中可以用,谢谢。
...全文
23 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainbow611 2003-08-22
  • 打赏
  • 举报
回复
unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms;

type

TXXXX(classname) = class(baseclass)
private

protected

public
end;

implement
{函数实现部分}

FrameSniper 2003-08-22
  • 打赏
  • 举报
回复
Delphi不是完全支持显式引用定义的语言!
lxpbuaa 2003-08-22
  • 打赏
  • 举报
回复
unit Unit2;

interface

uses Windows, Classes;

type
TMyClass = class
public
procedure ShowMsg(Msg: String);
end;

implementation

procedure TMyClass.ShowMsg(Msg: String);
begin
MessageBox(0, '提示', PChar(Msg), MB_OK);
end;

end.

//窗体的unit中

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Obj: TMyClass;
begin
Obj := TMyClass.Create;
Obj.ShowMsg('aaaa');
Obj.Free;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧