گرد نمودن اعداد اعشاري ومتعارفي

[ahmadi613]

با سلام
گرد نمودن اعداد براي برنامه نويسان بسيار مفيد است.ارسال اين لينك اولين كار من است.اگر جواب داد كه توانستيد دانلود نماييد در آينده برنامه هاي با ارزشتري براي عزيزان روي سايت قرار مي دهم .


دانلود فایل : دانلود (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span> %D8%AF%D8%AF_%D8%A7%D8%B9%D8%B4%D8%A7%D8%B1%DB%8C. rar.html)

[admin]

عالی بود ، فقط دوستان لطف کنند و بعد از دانلود حتما نام فولدر پروژه رو انگلیسی کنند ، تا اروری متوجه اشون نشه .
ضمنا اینم یونیت اصلی پروژه برای اون دوستانی که نمیتونند پروژه رو دانلود کنند.


کد:




unit Unit1;

interface

uses

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

type

*TForm1 = class(TForm)

* *Edit1: TEdit;

* *Label1: TLabel;

* *BitBtn1: TBitBtn;

* *BitBtn2: TBitBtn;

* *procedure Button1Click(Sender: TObject);

* *procedure BitBtn1Click(Sender: TObject);

* *procedure BitBtn2Click(Sender: TObject);

*private
*
{ Private declarations }
*
public

* *{ Public declarations }
*
end;

var

*Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

num:real;

begin

num:=strtofloat(edit1.text);

label1.caption:=FloatToStr(Round(num));

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

num:real;

begin

if edit1.Text=&quot;&quot; then begin

showmessage(&quot;عدد وارد شود&quot;);

edit1.SetFocus;

end

else

begin

num:=strtofloat(edit1.text);

label1.caption:=FloatToStr(Round(num));

edit1.Text:=&quot;&quot;;

edit1.SetFocus;

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.