delphi编写自定义unit的有关问题

2013-01-07

delphi编写自定义unit的问题我想自己编写一个unit 把常用的函数都放进去然后再写程序的时候直接调用但是我

delphi编写自定义unit的问题
我想自己编写一个unit 把常用的函数都放进去  然后再写程序的时候直接调用

但是我刚才试了一下发现不行有问题

我新编写的unit是

////
unit newunit;

interface

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

  type

  newunit = class

  private
    { Private declarations }
  public
    { Public declarations }
   procedure test ;
  end;

implementation

///uses Unit1;

procedure tnewunit.test ;
begin
showmessage('sss');
end;

end.

////调用的部分
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses newunit ;
procedure TForm1.Button1Click(Sender: TObject);
begin
tnewunit.test ;
end;

end.

调用不成功出错求指正错误谢谢

[解决办法]
你定义的是类的方法，需要创建对象后使用。你的情况应该这么写

单元：

unit newunit;

interface

uses
  Dialogs;

procedure test ;

implementation

procedure test ;
begin
  showmessage('sss');
end;

end.

调用：

procedure TForm1.Button1Click(Sender: TObject);
begin
  newunit.test;
end;

热点排行

.NET

delphi编写自定义unit的有关问题