Printable View
اقو ما يه سوال خيلي خيلي ساده داريم ميدونم از مبتدي كمتره ولي ديگه ببخشيند
ميخوام كاربر توي فرم 4 تا عدد وارد كنه تو 4تا از اين tedit ها بعد با زدن رو يه دكمه يه سري محسابات انجام بده و جوابشو توي يه label بنويسه
محساباتش هم اينجوريه كه فرضا
Tedit1*Tedit2
Tedit3^Tedit4
sqrt(tdeit3)
بعد جواب اين دو تا رو جمع كنه بنويسه تو label
اي چيجوري سورسشو مينويسن؟
مثلا :
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 اين كه اعشاري نيست؟ چكار كنم اعشاري هم بگيره؟
خوب از تابع strtofloat استفاده کن این که مشکلی نداره ( برای برعکس هم می تونی از تابع floattostr استفاده بکنی )
شما در هر EDIT مقدار رو به صورت اعشاری می نویسید و در خط زیر از به جای تابع Inttostr از تابع strtofloat استفاده می کنید
;(a := strtoint(Edit1.text)+strtoint(Edit2.text
;(a := strtofloat(Edit1.text)+strtofloat(Edit2.text
راستی شما باید متغیر A رو هم از نوع real تعریف کنید.
درسته . توی کد من رو هم نگاه کنید هم inttostr/strtoint استفاده شده برای اعداد صحیح و هم floattostr/strtofloat برای اعداد اعشاری
دمتون گرم حل شد ميگم اين چطوري مثلا ميخوان اگر مثلا يه Tedit خالي موند بعد كاربر روي دكمه كليلك كرد يه پيغام بده مثلا
Complete the information
خيلي راحت يك چك ميكني :
موفق باشي.کد:if trim(edit1.text) = '' then messagedlg(....);
آمو شما خيلي دمتون گرمه ! چاكريم ولي يي سوال ديگه ام واسم پيش اومد من واقعا معذرت ميخوام وقتتونو ميگيرمنقل قول:
آقا همين پروژه كامله خلاصه ميخوام اينو يه كاريش كنم كه وقتي ميبرم روي يه كامپيوتر ديگه بدون نياز به نصب دلفي اجرا بشه!!چكار كنم ؟ پيشرفته توضيح ندينا يعني exe باشه نميدونم ....يه ctrl F9 و كامپايلو از اينا هم زدم exe هم شد اما رو كامپيوتر ديگه error ميده
The Application failed to initialize properly(0*0000135).click ok to terminate the app
دوست گرامی شما اگر برنامه را در یک پوشه ذخیره کنید و بعد در دلفی فقط یک بار اجراش کنید فایل اجرایی در داخل همان پوشه ساخته می شه و از انجایی که شما در این برنامه از چیزه خاصی استفاده نکردید فقط این فایل Exe را می تونید به کامپیوتر های دیگر منتقل کنید و به راحتی اجراش کنید .
نميشه بابا!!! چكار كنم؟نقل قول:
ميگم اين تو پرانتزه كه كلي دنگ و فنگ داره پرش كنم چيكارش كنم يه مثالي بوگونقل قول:
دوست عزيز.
لطفا هميشه قبل اينكه اينجا بپرسي توي خود هلپ دلفي رو ببين چون معمولا راحت به جواب ميرسي.
اسم فرمان رو كه داري بقيش برات راحت بود.
ولي :
کد:messagedlg(
yourString,
your message kind like : mtinformation or mterror,
buttons you need like : [mbyes,mbno],
help context number and if you want to use this input "0"
)
دم همگي گرم خيلي صفا ميكينم ...يه سوال ديگه نيز بپرسيم ..اگه دقت كرده باشيد وقتي يه Tedit ميذاري و كاربر عدد وارد ميكنه و اون Tedit هم براي اعداد اعشاري تعريف كرده ايم (real) از اونجايي كه رو توي دلفي اعشار رو بصروت مثلا يك و نيم رو بصورت 5/1 ميزنن 1.5 يعني بين عدد اصلي و اعشار علامت / ميذاره نه نقطه بنابراين وقتي كاربر وارد ميكنه 1.5 يه error ميده كه عدد رو درست وارد كن كلا اگه هر حرف يا عددي جز عدد اعشاري بدي يه همچين پيغامي ميده.....
راه حلي هست كه اين پيغامه نياد يا قبل از اينكه بياد خودمون يه چيزي تعريف كنيم كه ديگه اون پيغام نياد مثلا به برنامه بگيم اگه tedit1 هرچيزي جز اعداد اعشاري بود اون وقت اين پيغام خاص رو بده
به برنامه بگيم اگه tedit1 اعدادي مثل 1.5 بود اون وقت يه پيغام خاص رو بده
دوست عزيز.
از اين به بعد لطف كن و فقط يك بار سوالتو مطرح كن.
نيازي نيست چند جا بنويسي. اين كارت فقط فروم رو شلوغ ميكنه.
براي عذر خواهي و تشكر و ... نيز نيازي به دادن پست نيست و اگه كارت واقعا مهمه و مطلب خواسي بايد به كسي بگي، براش pm بفرست.
البته اينارو براي بعدها گفتم خدمتت.
خيلي ممنون.