جمع دو مبلغی که سه رقم سه رقم جدا شده باشند

[medooo]

با سلام
چطوری می شه دو مبلغی که به صورت سه رقم سه رقم از هم جدا شدند را با هم جمع یا تفریق کنیم

12,000,000+10,000,000=?
خیلی گشتم و جستجو کردم ولی به نتیجه ای نرسیدم
دیگه اومدم دست به دامن اساتید وب سایت شدم:لبخند:

[یوسف زالی]

سلام.
به همین دلیل نباید value ها رو دست بزنید و باید با OnGetTest کار کنید.
اما برای کار شما باید با دستور replace کاراکترهای مزاحم رو با خالی جایگزین کنید، و بعد StrToInt کنید.

[medooo]

You-See جان من یکم مبتدیم
میشه یکم واضح تر توضیح بدی

[یوسف زالی]

با چی دارید کار می کنید؟ ADO ؟

[golbafan]

مگه داده هاتون متن هستن ؟؟؟؟

اگر متن هست:

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;

131465

[meysam_212]

یه کامپوننت Edit Box که ویرایش شده ی کامپوننت Tadvedit از TMS برای XE7 هست و تو پلت Persian قرار میگیره و شاید بدردت بخوره، به این کامپوننت دوتا خصوصیت اصافه شده که یکیش برای اعمال Mask، مثلا میتونه جدا کننده ارقام باشه که این خصوصیت با عنوان maskShow وجود داره. اگه بخوایم mask ما همون جدا کننده باشه این خصوصیت رو با ###,###,###,### پر میکنیم. در واقع "#" یعنی تغییر نده و اگه غیر از "#" باشه یعنی اضافه بشه

یه خصوصیت هم داره با عنوان ShowNumberAsPersianSentence که همون نمایش ارقام به حروف فارسی بصورت هینت هست و وقتی فعال باشه اگه اعداد داخل اونرو تغییر بدیم اعداد رو بصورت حروف فارسی نشون میده
MaskShow متد GetText و SetText رو تغییر میده و برای خوندن رشته هایی که ماسک دارن نیاز به حذف ماسک نیست

لینک دانلود:
https://www.dropbox.com/s/pn9af7tjr88kj8x/Persian.rar?dl=1

[hadisalahi2]

جالبه
اما حروف رو سریع محو میکنه
و اون هینت رو بعد از تایپ یک عدد سریع مخفی میکنه
یک عددHide after هم زدم
اما بازم زود اون هینت مخفی میشه

[meysam_212]

جالبه
اما حروف رو سریع محو میکنه
و اون هینت رو بعد از تایپ یک عدد سریع مخفی میکنه
یک عددHide after هم زدم
اما بازم زود اون هینت مخفی میشه

hideAfter اگه بیشتر از 2000 باشه نباید زود محو بشه، شاید بد نصب شده باشه، موقع باز کردن فرم ها تو IDE پیغام نداده که ممکنه HideAfter کار نکنه؟

[gbg]

برای کدوم نسخه از دلفی؟
با کامپوننت من می تونید اینکار رو بکنین ، برای نسخه های قدیمی دلفی تو سایت گداشته بودم

[meysam_212]

برای کدوم نسخه از دلفی؟
با کامپوننت من می تونید اینکار رو بکنین ، برای نسخه های قدیمی دلفی تو سایت گداشته بودم

برای نسخه xe7

[gbg]

این برای دلفی XE7

[meysam_212]

جالبه
اما حروف رو سریع محو میکنه
و اون هینت رو بعد از تایپ یک عدد سریع مخفی میکنه
یک عددHide after هم زدم
اما بازم زود اون هینت مخفی میشه
hideAfter رو بزار 2500

[gbg]

بکارتون اومد
پروپرتی Value مقدار عددی رو بدون جدا کننده به شما میده ولی Edit با جدا کننده
عدد صفر رو نشون نمیده اگه بخواین ببینین باید Showzero رو True کنین یه پروپرتی فقط خواندنی هم هست که اسمش یادم نیست که عدد رو با جدا کننده نشون میده و یه پروپرتی هم برای نمایش یا عدم نمایش جدا کننده در Edit هستش
البته اگه دمو رو ببینین بهتر متوجه میشین