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;