عالی بود ، فقط دوستان لطف کنند و بعد از دانلود حتما نام فولدر پروژه رو انگلیسی کنند ، تا اروری متوجه اشون نشه .
ضمنا اینم یونیت اصلی پروژه برای اون دوستانی که نمیتونند پروژه رو دانلود کنند.
کد:
کد:
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.
مجوز های ارسال و ویرایش
پاسخ با نقل قول
علاقه مندي ها (Bookmarks)