この記事では、Delphi 印刷プログラムの実装方法を例とともに説明します。この例では、システムにインストールされているすべてのプリンターを検出し、これらのプリンターを列挙できます。メイン関数のコードは非常にシンプルで、誰にとっても読みやすく理解しやすいものです。
主な機能コードは以下のとおりです。
ユニット Unit1; インターフェイスは Windows、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、ダイアログ、StdCtrls、プリンター、XPMan を使用します。タイプ TForm1 = class(TForm) Button1: TButton: TGroupBox: TMemo; ; プロシージャ Button1Click(Sender: TObject); Button2Click(Sender: TObject); private { プライベート宣言 } public { パブリック宣言 } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); トリム(memo1.Text) = '' の場合、開始しますshowmessage('プリンタがインストールされていません!'); end;end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;end。