يه سوال در مورد يه محاسبه رياضياتي خيلي ساده

[fingulii]

اقو ما يه سوال خيلي خيلي ساده داريم ميدونم از مبتدي كمتره ولي ديگه ببخشيند

ميخوام كاربر توي فرم 4 تا عدد وارد كنه تو 4تا از اين tedit ها بعد با زدن رو يه دكمه يه سري محسابات انجام بده و جوابشو توي يه label بنويسه

محساباتش هم اينجوريه كه فرضا
Tedit1*Tedit2
Tedit3^Tedit4
sqrt(tdeit3)
بعد جواب اين دو تا رو جمع كنه بنويسه تو label
اي چيجوري سورسشو مينويسن؟

[thezetta]

مثلا :

uses
;math


var
;a : integer
;b : double
begin
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;((b := power(strtofloat(Edit3.text),strtofloat(Edit4.text
;b := a + b
;(label1.caption := floattostr(b
;end

[fingulii]

مثلا :

uses
;math


var
;a : integer
;b : double
begin
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;((b := power(strtofloat(Edit3.text),strtofloat(Edit4.text
;b := a + b
;(label1.caption := floattostr(b
;end

شرمنده درسته ها ولي اين tedit ها همه اعداد اعشاري ميگرين شما نوشتي inttostr اين كه اعشاري نيست؟ چكار كنم اعشاري هم بگيره؟

[as13851365]

خوب از تابع strtofloat استفاده کن این که مشکلی نداره ( برای برعکس هم می تونی از تابع floattostr استفاده بکنی )

شما در هر EDIT مقدار رو به صورت اعشاری می نویسید و در خط زیر از به جای تابع Inttostr از تابع strtofloat استفاده می کنید
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;(a := strtofloat(Edit1.text)+strtofloat(Edit2.text

راستی شما باید متغیر A رو هم از نوع real تعریف کنید.

[thezetta]

درسته . توی کد من رو هم نگاه کنید هم inttostr/strtoint استفاده شده برای اعداد صحیح و هم floattostr/strtofloat برای اعداد اعشاری

[fingulii]

دمتون گرم حل شد ميگم اين چطوري مثلا ميخوان اگر مثلا يه Tedit خالي موند بعد كاربر روي دكمه كليلك كرد يه پيغام بده مثلا
Complete the information

[مرد مباح]

خيلي راحت يك چك ميكني :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشي.

[fingulii]

خيلي راحت يك چك ميكني :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

موفق باشي.

آمو شما خيلي دمتون گرمه ! چاكريم ولي يي سوال ديگه ام واسم پيش اومد من واقعا معذرت ميخوام وقتتونو ميگيرم
آقا همين پروژه كامله خلاصه ميخوام اينو يه كاريش كنم كه وقتي ميبرم روي يه كامپيوتر ديگه بدون نياز به نصب دلفي اجرا بشه!!چكار كنم ؟ پيشرفته توضيح ندينا يعني exe باشه نميدونم ....يه ctrl F9 و كامپايلو از اينا هم زدم exe هم شد اما رو كامپيوتر ديگه error ميده
The Application failed to initialize properly(0*0000135).click ok to terminate the app

[as13851365]

دوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل Exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید .

[fingulii]

دوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید .

نميشه بابا!!! چكار كنم؟