جداكردن اعداد

[mahian90]

سلام دوستان

چطور ميشه اعداد رو به صورت سه تا سه تا از سمت راست جدا كرد.

مثلا تو يه اديت بنويسي 1500000 و نمايش بده 1.500.000 ؟

چطور ميشه كدي داد كه عدد رو به حروف تبديل كنه؟

 

[baran_2005]

از کامپوننت tms استفاده کنید خودش سه تا سه تا جدا میکنه.

 

[mahian90]

از کامپوننت tms استفاده کنید خودش سه تا سه تا جدا میکنه.

من ندارمش لطف ميكني برام ضميمش كني؟

 

[mahian90]

من نتونستم کامپوننت tms رو پیدا کنم. کسی از دوستان لینکشو داره؟

 

[hasandrw]

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

 

[ahmadi613]

سلام
كد زير را در رويداد onchange يك edit بنويس در خروجي سرقمي جدا مي شود
var
s:string;
i:Integer;
begin
s:='';
if Edit2.Text>''then
begin
for i:=0 to Length(Edit2.Text)do
if Edit2.Textin['0'..'9']then
s:=s+edit2.Text;
Edit2.Text:=FormatFloat('#,',StrToInt64(s));
Edit2.SelStart:=Length(Edit2.Text)+1;
end;