Menghitung Luas Persegi Panjang(Procedur and Function)

Membuat Program seperti ini

Coba Masukkan Nilai Panjang, Misal: 8 dan Masukkan Nilai Lebar, Misal: 4.
kemudian klik Procedur hasilnya seperti ini

lalu klik pada function

Hasil akhirnya

List Program


unit rina;

interface

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

type
  Trina_2b = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edpanjang: TEdit;
    edlebar: TEdit;
    btnprocedure: TButton;
    btnfunction: TButton;
    btnreset: TButton;
    btnclose: TButton;
    Label4: TLabel;
    Label5: TLabel;
    edhalpro: TEdit;
    edhalfunct: TEdit;
    procedure btnprocedureClick(Sender: TObject);
    procedure btnfunctionClick(Sender: TObject);
    procedure btncloseClick(Sender: TObject);
    procedure btnresetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function ls(p,l:string):string;
    procedure ls1(p,l:string);
  end;

var
  rina_2b: Trina_2b;
  luas:currency;

implementation

{$R *.dfm}
  function Trina_2b.ls(p,l:string):string;
  var
  a,b:currency ;
  begin
  a:=strtocurr(p);
  b:=strtocurr(l);
  luas:=a*b;
  edhalfunct.text:= currtostr(luas);
  end;

  procedure Trina_2b.ls1(p,l:string);
  var
  a,b:currency ;
  begin
  a:=strtocurr(p);
  b:=strtocurr(l);
  luas:=a*b;
  edhalpro.text:= currtostr(luas);
  end;
procedure Trina_2b.btnprocedureClick(Sender: TObject);
begin
ls1(edpanjang.text,edlebar.text);

end;

procedure Trina_2b.btnfunctionClick(Sender: TObject);
begin
 ls(edpanjang.text,edlebar.text);
end;

procedure Trina_2b.btncloseClick(Sender: TObject);
begin
close;
end;

procedure Trina_2b.btnresetClick(Sender: TObject);
begin
edhalfunct.Clear;
edhalpro.Clear;
edlebar.Clear;
edpanjang.clear;
end;

end.