ユニットを単体で利用したい

解決

take 2006-09-16 00:45:08 No: 23253

フォームやデータモジュールを使わずに子ユニットを作って、そこに書き込んだ関数や手続きを利用したいのですが、やり方がわかりません。
初歩的ですいませんが、教えてください。

/////////////////////////////////////////////////////////////////////
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Unit2.PrintOut(Edit1.Text);
end;
/////////////////////////////////////////////////////////////////////
unit Unit2;

interface

uses Printers;

implementation

procedure PrintOut(Moji:String);
var
PRT:TPrinter;
begin
PRT:= Printer;

  PRT.BeginDoc;
  PRT.Canvas.TextOut(20,20,Moji);
  PRT.EndDoc;
end;

end.

Syake 2006-09-16 01:22:11 No: 23254

上記の場合は
Unit2のinterface部に
procedure PrintOut(Moji:String);
を宣言するだけです。

take 2006-09-17 00:28:21 No: 23255

ありがとうございました。
クラスからしか宣言が使えないと思ってました。