掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ユニットを単体で利用したい (ID:23253)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォームやデータモジュールを使わずに子ユニットを作って、そこに書き込んだ関数や手続きを利用したいのですが、やり方がわかりません。 初歩的ですいませんが、教えてください。 ///////////////////////////////////////////////////////////////////// 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.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.