소수점을 사용할 수 있게 하려고



하는데 잘 되지 않습니다.



델파이 고수님의 지도 부탁드립니다.



무척 궁금해요^^*





var

Form1: TForm1;

Op: Char;

R : Extended;

bGettingNum: Boolean;

implementation



{$R *.DFM}



function TForm1.Compute(Operator: Char; V1, V2: Extended): Extended;

begin

case Operator of

'+':Result := V1 + V2;

'-':Result := V1 - V2;

'*':Result := V1 * V2;

'/':Result := V1 / V2;

//

else Result := V2;

end;

end;

procedure TForm1.Clear;

begin

bGettingNum :=False;

R := 0;

Op := #0;

end;





procedure TForm1.Button5Click(Sender: TObject);

begin

if not bGettingNum then

begin

Label1.Caption := '';

bGettingNum :=True;

end;



Label1.Caption :=

Label1.Caption + TButton(sender).Caption;



선언 해주고 나서



사칙연산을 해주었습니다.



procedure TForm1.Button1Click(Sender: TObject);

begin

R :=Compute(Op, R, StrToFloat(Label1.Caption));

Op := '+';

bGettingNum := False;

Label1.Caption := FloatToStr(R);

end;



다른 연산도 Op에서 바꿔주기만 했구여



여기서 소수점('.')를 사용하려고 합니다.



어떻게 해야하는지 부디 지도 부탁드립니다