مشكل في برمجة برنامج بسيط للمبتدئين

[مهند الرسيني]

ارفق المثال الذي عملته , -_-

المشكلة التي ظهرت لك في دالة FloatToStr
ربما تختلف المعاملات في لازارس عن دلفي , حيث اني كتبت المثال في لازارس

---- تعديل :
جرب بستعمال Extended :

PHP كود :

function CalcCircleArea(Ta, Nq : Extended):Extended;
begin
  Result := (sqr(Nq) * Ta);
end;

function CalcCylinderSize(CircleArea, AHigh : Extended):Extended;
begin
  Result := (CircleArea * AHigh);
end;

procedure TForm1.Button2Click(Sender : TObject);
begin
  Caption := FloatToStr(CalcCylinderSize(CalcCircleArea(5, 10), 10));
end; 


المصدر :

PHP كود :

http://docwiki.embarcadero.com/Libraries/XE7/en/System.SysUtils.FloatToStr