Cara Membuat Dan Menggunakan Unit Di Delphi

Artikel ini adalah lanjutan dari artikel Bekerja Dengan Unit Di Delphi. 

Untuk membuat unit baru, pilih menu File | New | Unit. Listing di bawah ini merupakan suatu contoh unit yang dibuat Delphi.

unit Unit2;

interface

implementation

end.

Untuk melihat unit yang digunakan proyek (jika unit belum terbuka), pilih menu View | Units..., dan dari window Search for units, pilih nama unit yang diinginkan untuk ditampilkan. Dapat juga dilakukan dengan menekan kombinasi tombol keyboard-mouse Ctrl+click pada nama unit yang ditulis pada bagian uses. Selain itu juga dapat melalui Project Manager (dapat diakses dengan memilih menu View | Project Manager atau dengan menekan kombinasi tombol keyboard-mouse Ctrl+Alt+F11). 

Listing berikut merupakan sebuah contoh unit yang dibuat.

unit Unit2; // nama unit: Unit2

{------------------------------------------------------------------------------}
interface   // awal bagian 'interface'

uses
  Windows, SysUtils;  // sebuah unit bisa menggunakan unit lain

var
  varGlobal: String;  // variabel ini bisa diakses oleh unit lain

function IsStringMatch(StrKata: String): Boolean; // prototipe fungsi yang
                                                  // dapat diakses
                                                  // oleh unit lain
{------------------------------------------------------------------------------}
implementation  // awal bagian 'implementation'

var
  varLokal: String; // variabel ini tidak dapat diakses dari unit lain

function IsStringMatch(StrKata: String): Boolean; // definisi fungsi
begin
  Result:= False;
  varLokal:= 'HALO';
  if UpperCase(StrKata) = varLokal then Result:= True;
end;

{------------------------------------------------------------------------------}
initialization  // awal bagian initialization
  varGlobal:= 'Coba1';

{------------------------------------------------------------------------------}
finalization

{ bagian initialization dan finalization tidak harus ada dalam sebuah unit }

end.  // akhir unit

Menggunakan Unit

---

Untuk menggunakan unit, hal yang harus dilakukan adalah menambahkan nama unit pada klausa uses
Contoh penggunaan unit Unit2 di atas adalah sebagai berikut.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

uses
  Unit2;  // unit yang akan kita gunakan

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  WideChars: array[0..11] of WideChar;
begin
  Application.MessageBox(StringToWideChar('Isi variabel global: ' + varGlobal, WideChars, 12), 'varGlobal', MB_OK);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Length(Edit1.Text) = 0 then
    Exit;
  if IsStringMatch(Edit1.Text) then
    Application.MessageBox('Match!', 'Cek String', MB_OK)
  else
    Application.MessageBox('Not Match!', 'Cek String', MB_OK)
end;

end.