تبلیغات
دانشجویان نرم افزار کل ایران - جدا کردن ارقام به صورت 3 رقم 3 رقم در دلفی
 
درباره وبلاگ




مدیر وبلاگ : بهرام محمدپور
نویسندگان
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :
دانشجویان نرم افزار کل ایران
صفحه نخست             تماس با مدیر           پست الکترونیک               RSS                  ATOM
یکشنبه بیست و سوم خرداد 1389 :: نویسنده : بهرام محمدپور

.

{در قسمت}

var

loc1,loc2:word;

 Masking:boolean=False;

 Adding_Digit:boolean=True;

implementation

{$R *.dfm}

{ کد زیر رابنویسید Edit1Change  و در رویداد Edit1, eventsدر قسمت}

procedure TForm1.Edit1Change(Sender: TObject);

var

  i,j,n,m: Integer;

  a:array of string;

  My_Final_Text:string;

begin

  if Masking then

     Masking:=false

  else

   begin

     n:=0;

     m:=0;

     My_Final_Text:='';

     for i := 1 to length(edit1.text) do

      if Edit1.Text[i] in ['0'..'9'] then

         n:=n+1

      else

         m:=m+1;

     if (n>3) or ((n<=3) and (Length(edit1.Text)>3))then

      begin

        loc1:=edit1.SelStart;

        setlength(a,n);

        j:=0;

        for i := 1 to length(edit1.text) do

         if Edit1.Text[i] in ['0'..'9'] then

          begin

            a[j]:=Edit1.Text[i];

            j:=j+1;

          end;

        j:=0;

        for i := n downto  1 do

         begin

            if ((n-i) mod 3=0) and ((n-i)<>0) then

             begin

               My_Final_Text:=','+My_Final_Text;

               j:=j+1;

             end;

            My_Final_Text:=a[i-1]+My_Final_Text;

         end;

        if edit1.Text<>My_Final_Text then

         begin

           Masking:=True;

           edit1.Text:=My_Final_Text;

         end;

        if Adding_Digit then

           edit1.SelStart:=loc1+j-m

        else

           Edit1.SelStart:=loc2+j-m

      end;

   end;

end;

{ کد زیر رابنویسید Edit1KeyDown  و در رویداد Edit1, eventsدر قسمت}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if (key=Vk_Delete) and (edit1.SelLength=0) and ((edit1.SelStart+1)<=length(edit1.text)) and (edit1.Text[edit1.SelStart+1]=',')then

   begin

     loc2:=edit1.SelStart+1;

     edit1.SelStart:=edit1.SelStart+1;

     Adding_Digit:=False;

   end

  else

   if (key=Vk_Back) and (edit1.SelLength=0) and ((edit1.SelStart-1)>=1) and (edit1.Text[edit1.SelStart]=',') then

    begin

      loc2:=edit1.SelStart-2;

      edit1.SelStart:=edit1.SelStart-1;

      Adding_Digit:=False;

    end

  else

    Adding_Digit:=True;

end;

{ کد زیر رابنویسید Edit1KeyDown و در رویداد Edit1, eventsدر قسمت}

{برای جلوگیری از ورود کاراکتر های حروفی}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not( key in ['0'..'9',#8,#46]) then

     key:=#0;

end;

end.

موفق وسربلند باشید . با نظرات خود ما را یاری کنید.

*******************************************************************





نوع مطلب : سورس دلفی، 
برچسب ها : ارقام در دلفی، جدا کردن ارقام در دلفی،
لینک های مرتبط :


پنجشنبه شانزدهم شهریور 1396 07:55 ق.ظ
Your way of explaining the whole thing in this article is genuinely good, all be capable of simply know it, Thanks a lot.
شنبه سی و یکم تیر 1396 06:17 ب.ظ
This design is incredible! You definitely know how to
keep a reader entertained. Between your wit and your videos, I was almost moved to start my own blog (well, almost...HaHa!) Fantastic job.

I really loved what you had to say, and more than that,
how you presented it. Too cool!
چهارشنبه بیست و هشتم تیر 1396 01:54 ب.ظ
It's actually a great and helpful piece of information. I am happy that you simply
shared this helpful info with us. Please keep us up to date like this.

Thanks for sharing.
چهارشنبه بیست و هشتم تیر 1396 10:30 ق.ظ
I'm curious to find out what blog system you happen to be using?

I'm having some small security issues with my latest website and
I would like to find something more safe. Do you have any recommendations?
چهارشنبه بیست و هشتم تیر 1396 07:38 ق.ظ
I loved as much as you will receive carried out right here.
The sketch is tasteful, your authored material stylish.
nonetheless, you command get got an shakiness over that you wish be
delivering the following. unwell unquestionably come more formerly
again since exactly the same nearly very often inside case you shield this increase.
چهارشنبه بیست و هشتم تیر 1396 07:17 ق.ظ
Wow, incredible blog layout! How long have you been blogging for?
you make blogging look easy. The overall look of your web site is magnificent, let alone the content!
یکشنبه بیست و پنجم تیر 1396 04:54 ب.ظ
Hi just wanted to give you a quick heads
up and let you know a few of the pictures aren't loading correctly.
I'm not sure why but I think its a linking issue. I've tried it in two different web browsers and both show the same
outcome.
جمعه شانزدهم تیر 1396 07:06 ب.ظ
Great post however , I was wondering if you could write a litte
more on this topic? I'd be very grateful if you could elaborate a little bit more.
Thanks!
یکشنبه چهارم تیر 1396 11:14 ب.ظ
بسیار core از خود نوشتن در حالی که صدایی
دلنشین در آیا واقعا حل و فصل درست با من پس از برخی از زمان.
جایی درون پاراگراف شما در واقع قادر به من
مؤمن متاسفانه تنها برای بسیار در حالی
که کوتاه. من با این حال کردم مشکل خود را با فراز در منطق و یک خواهد را خوب به پر کسانی که معافیت.

در صورتی که شما در واقع که می توانید انجام من خواهد
مطمئنا بود تحت تاثیر قرار داد.
پنجشنبه بیست و پنجم خرداد 1396 07:25 ب.ظ
core از خود نوشتن در حالی که صدایی مناسب ابتدا آیا نه نشستن بسیار خوب با
من پس از برخی از زمان. جایی در سراسر جملات شما در واقع قادر به من
مؤمن متاسفانه فقط برای while. من این کردم مشکل خود را با فراز
در منطق و یک خواهد را سادگی به پر
همه کسانی شکاف. اگر شما که می توانید انجام من را
قطعا تا پایان در گم.
سه شنبه سیزدهم بهمن 1394 11:38 ق.ظ
خوب بود
پنجشنبه بیست و یکم اسفند 1393 01:22 ق.ظ
باسلام
بسیارجالب بود.تشکرویژه دارم.
چهارشنبه ششم دی 1391 04:42 ب.ظ
تشکر از لطفتون خودم خیلی سعی کردم اینو بنویسم اما نتونستم
چهارشنبه بیست و چهارم فروردین 1390 08:12 ق.ظ
لطفاً جدا کردن سه رقم اعداد در DBGrid دلفی را توضیح دهید
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر