تبدیل اعداد به حروف و جدا کردن سه رقم سه رقم

[Delphi 2010]

سلام عرض سلام خدمت همه دوستان
کد جدا کردن سه رقم سه رقم و تبدیل به حروف اعداد به صورت پراکنده موجود بوده و بعضی از کدها با خطا مواجه بوده اند

این یک Unit برای این منظور هستش بدون خطا
فایل pas رو در کنار برنامه خودتون بگذارید و Uses کنید در برنامه خودتون

implementation

uses ConvertNumber;

برای استفاده هم به شکل زیر عمل کنید (برای مثال Edit):



procedure TForm1.Edit1Change(Sender: TObject);begin
if Edit1.Text = '' then
Label1.Caption := ''
else begin
Edit1.Text := Seprator(Edit1.Text);
Label1.Caption := NumberToStr(Edit1.Text);
Edit1.SelStart := Edit1.GetTextLen;
end;
end;

[YkA1363]

سلام از این کد استفاده کردم خوبه فقط دو تا مشکل دارم:
1ـ عدد رو باید از سمت راست وارد کنم
2ـ صفر قبول نمیکنه
لطفا راهنمایی کنید
ممنون

[hadisalahi2]

چندین بار در این مورد بحث شده
خودم یک یونیت چند وقت پیش گذاشتم روی سایت واسه همین کار
یک سرچ کوچولو بزنی ردیفه

[YkA1363]

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

procedure TFSabt.Edit9Change(Sender: TObject);
var
s:string;
i:Integer;

begin
s:='';
if Edit9.Text>''then
begin
for i:=0 to Length(Edit9.Text)do
if Edit9.Text[i]in['0'..'9']then
s:=s+edit9.Text[i];
Edit9.Text:=FormatFloat('#,',StrToInt64(s));
Edit9.SelStart:=Length(Edit9.Text)+1;
end;
end;

[meysam_212]

این یه کامپوننت edit هست که خصوصیتی برای این کار داره به اسم maskshow برای جداکننده و خصوصیتی هم برای نمایش به حروف بصورت هینت کنار کامپوننت.
نیاز نیست موقع خوندن جداکننده رو حذف کنید

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