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

[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="" then begin

showmessage("عدد وارد شود");

edit1.SetFocus;

end

else 

begin

num:=strtofloat(edit1.text);

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

edit1.Text:="";

edit1.SetFocus;

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.