Function Berparameter, Percabangan Case OF Pada Delphi

Tampilan Program 

Tampilan Komponen sebagai Berikut 

Pada ComboBox Isikan Pada Items

• Fahreinhet
• Reamur 
• Kelvin

Buat Procedure Bersih

procedure TForm1.bersih;

begin

    edtcelcius.Text:='';

    edthasil.Text:='';

    ComboBox1.Text:='';

end;

Buat Function seperti dibawah ini:

private

    { Private declarations }

  public

    { Public declarations }

    Procedure Bersih;

    function kelvin (cel : integer) : Integer;

    function reamur (cel : integer) : Real;

    function fahreinheit (cel : integer) : Real;

  end;

Selanjut nya Klik 2x Pada Bitbtn1 atau pada hitung

procedure TForm2.BitBtn1Click(Sender: TObject);

var

    celcius : Integer;

begin

    celcius:=StrToInt(edtcelcius.Text);

    case ComboBox1.ItemIndex of

    0:

    begin

       edthasil.Text:=FloatToStr(fahreinheit(celcius));

    end;

    1:

    begin

       edthasil.Text:=CurrToStr(reamur(celcius));

    end;

    2:

    begin

       edthasil.Text:=CurrToStr(kelvin(celcius));

    end;

    end;

end;

Klik 2x Pada Bitbtn2 atau pada Clear

procedure TForm21.BitBtn2Click(Sender: TObject);

begin

    bersih;

end;

Lalu dibawahnya Panggil Function tadi seperti dibawah ini :

function TForm2.fahreinheit(cel: integer): Real;

begin

    fahreinheit:= 4/5 * cel + 32;

end;

function TForm2.kelvin(cel: integer): Integer;

begin

    kelvin:= 273 + cel;

end;

function TForm2.reamur(cel: integer): Real;

begin

    reamur:= 9/5 * cel ;

end;

end.

Sekian Semoga Bermanfaat :)