Function non parameter Pemrograman Delphi

Buat tampilan seperti diatas, Setelah itu buat variabel Global seperti dibawah ini :

var
 
  Form1: TForm1;
  C,K:INTEGER;

implementation

Klik pada form lalu pilih event ,Form create. Isikan untuk menghapus saat form dijalankan 

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;



Buat Function Seperti dibawah ini letakkan seperti dibawah ini

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    FUNCTION KELVIN:INTEGER;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


bila sudah seperti biasa ctrl+shift +c pada function diatas, lalu selanjutnya ketikan seperti dibawah ini


function TForm1.KELVIN: INTEGER;
begin
// ambil nilia C sebagai Interger dari Edit1.text
 C:=StrToInt(Edit1.Text);

 // Hitung Fungsi Kelvin
 KELVIN:=c+273;

end;


Selanjutnya klik 2x pada Button, Isikan seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin

// Isi nilai K dengan Memanggil fungsi Kelvin
   k:=KELVIN;

// meniliskan Nilai K ke edit2.text sebagai String
   Edit2.Text:=  IntToStr(K);
end;

end.