Laskin aliohjelmilla

Tuon esimerkkisi voi tehdä hyvin monella eri tavalla. Tässä jotain vinkkiä.
Jos lisäät jakolaskun niin huomio se että mitä teet tai tapahtuu kun jakajana on nolla.


TLaskin = class(TForm)
...
private
function Laske(const Laskettava1: string; const operaatio: char;
const laskettava2: string): string;
...
public
...


procedure TLaskin.LaskePainike1Click(Sender: TObject);
begin
Tulos.caption := Laske(Luku1.Text,' ',Luku2.Text);
end;

procedure TLaskin.LaskePainike2Click(Sender: TObject);
begin
Tulos.caption := Laske(Luku1.Text,'-',Luku2.Text);
end;



procedure TLaskin.LaskePainike4Click(Sender: TObject);
begin
Tulos.caption := Laske(Luku1.Text,'*',Luku2.Text);
end;

function TLaskin.Laske(const Laskettava1:string;const operaatio:char; const laskettava2:string):string;
var
EkaLuku, TokaLuku, laskun_tulos: Real;
begin
EkaLuku :=StrToFloat(Laskettava1);
TokaLuku :=StrToFloat(Laskettava2);
case operaatio of
' ': laskun_tulos := ekaluku tokaluku;
'-': laskun_tulos := ekaluku - tokaluku;
'*': laskun_tulos := ekaluku * tokaluku;
else laskun_tulos :=0;
end;
result := FloatToStr(laskun_tulos);
end;