Artikel ini mengilustrasikan metode implementasi program pencetakan Delphi dengan contoh. Contoh ini dapat mendeteksi semua printer yang terpasang di sistem dan menghitung printer tersebut. Kode fungsi utamanya sangat sederhana dan mudah dibaca dan dipahami semua orang.
Kode fungsi utama adalah sebagai berikut:
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls,Printer, XPMan;ketik TForm1 = class(TForm) Button1: TButton GroupBox1: TGroupBox; ; prosedur Button1Click(Pengirim: TObject); Button2Click(Pengirim: TObject); private { Deklarasi pribadi } public { Deklarasi publik } end;var Form1: TForm1;implementasi{$R *.dfm}prosedur TForm1.Button1Click(Sender: TObject);begin Memo1.Clear; .Assign(Printer.Printers); jika trim(memo1.Text) = '' maka mulailah showmessage('Tidak ada printer yang terpasang!'); akhir;akhir;prosedur TForm1.Button2Click(Pengirim: TObject);mulai Tutup;akhir;akhir.