با سلام
چطوری می شه دو مبلغی که به صورت سه رقم سه رقم از هم جدا شدند را با هم جمع یا تفریق کنیم
12,000,000+10,000,000=?
خیلی گشتم و جستجو کردم ولی به نتیجه ای نرسیدم
دیگه اومدم دست به دامن اساتید وب سایت شدم
با سلام
چطوری می شه دو مبلغی که به صورت سه رقم سه رقم از هم جدا شدند را با هم جمع یا تفریق کنیم
12,000,000+10,000,000=?
خیلی گشتم و جستجو کردم ولی به نتیجه ای نرسیدم
دیگه اومدم دست به دامن اساتید وب سایت شدم
سلام.
به همین دلیل نباید value ها رو دست بزنید و باید با OnGetTest کار کنید.
اما برای کار شما باید با دستور replace کاراکترهای مزاحم رو با خالی جایگزین کنید، و بعد StrToInt کنید.
توابع تبدیل تاریخ با دقت 5000 سال
پذیرش پروژه، کامپوننت، آموزش برنامه نویسی (دلفی، اس کیو ال، ..) -> 09123780840
دوستای گلم حمایت کنید : https://cafebazaar.ir/app/com.nikanmehr.marmarxword/
نرم افزار پخش مویرگی
You-See جان من یکم مبتدیم
میشه یکم واضح تر توضیح بدی
با چی دارید کار می کنید؟ ADO ؟
توابع تبدیل تاریخ با دقت 5000 سال
پذیرش پروژه، کامپوننت، آموزش برنامه نویسی (دلفی، اس کیو ال، ..) -> 09123780840
دوستای گلم حمایت کنید : https://cafebazaar.ir/app/com.nikanmehr.marmarxword/
نرم افزار پخش مویرگی
مگه داده هاتون متن هستن ؟؟؟؟
اگر متن هست:
uses System.SysUtils;
var s1,s2:string;
n1,n2:Integer;
answr:string;
begin
try
s1:=StringReplace('12,000,000',',','',[rfReplaceAll]);
s2:=StringReplace('5,000,000',',','',[rfReplaceAll]);
n1:=StrToInt(s1);
n2:=StrToInt(s2);
answr:=FormatFloat('0,',n1+n2);
Writeln(answr);
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
a.jpg
یه کامپوننت Edit Box که ویرایش شده ی کامپوننت Tadvedit از TMS برای XE7 هست و تو پلت Persian قرار میگیره و شاید بدردت بخوره، به این کامپوننت دوتا خصوصیت اصافه شده که یکیش برای اعمال Mask، مثلا میتونه جدا کننده ارقام باشه که این خصوصیت با عنوان maskShow وجود داره. اگه بخوایم mask ما همون جدا کننده باشه این خصوصیت رو با ###,###,###,### پر میکنیم. در واقع "#" یعنی تغییر نده و اگه غیر از "#" باشه یعنی اضافه بشه
یه خصوصیت هم داره با عنوان ShowNumberAsPersianSentence که همون نمایش ارقام به حروف فارسی بصورت هینت هست و وقتی فعال باشه اگه اعداد داخل اونرو تغییر بدیم اعداد رو بصورت حروف فارسی نشون میده
MaskShow متد GetText و SetText رو تغییر میده و برای خوندن رشته هایی که ماسک دارن نیاز به حذف ماسک نیست
لینک دانلود:
https://www.dropbox.com/s/pn9af7tjr8...rsian.rar?dl=1
جالبه
اما حروف رو سریع محو میکنه
و اون هینت رو بعد از تایپ یک عدد سریع مخفی میکنه
یک عددHide after هم زدم
اما بازم زود اون هینت مخفی میشه
برای کدوم نسخه از دلفی؟
با کامپوننت من می تونید اینکار رو بکنین ، برای نسخه های قدیمی دلفی تو سایت گداشته بودم
این برای دلفی XE7
بکارتون اومد
پروپرتی Value مقدار عددی رو بدون جدا کننده به شما میده ولی Edit با جدا کننده
عدد صفر رو نشون نمیده اگه بخواین ببینین باید Showzero رو True کنین یه پروپرتی فقط خواندنی هم هست که اسمش یادم نیست که عدد رو با جدا کننده نشون میده و یه پروپرتی هم برای نمایش یا عدم نمایش جدا کننده در Edit هستش
البته اگه دمو رو ببینین بهتر متوجه میشین