جدا کننده ارقام
توسط این یونیت داده های ورودی را معتبرسازی کنید. در این یونیت تابعی با نام Argham( String , type ); که در آن پارامتر اول نشان دهنده رشته اصلی است که عدد از آن استخراج می گردد و پارامتر دوم می تواند دو حالت باشد اگر عدد 1 باشد آنگاه ارقام مربوط عدد خروجی با جدا کننده (کاما) از هم نشان داده می شوند و اگر 2 باشد بدون جدا کننده عدد را برمی گرداند. در پایین تصویری از یک برنامه که این تابع را بکار برده است:
الف) نحوه افزودن یونیت به برنامه:
1- ابتدا آنرا دانلود کرده و سپس آنرا از حالت فشرده خارج کنید و در یک پوشه نگهداری کنید.
2- اکنون پروژه مورد نظر خود را باز کرده و این یونیت را به آن اضافه کنید، که برای انجام این کار کافیست از منوی Project > Add to Project … Shift+F11 را انتخاب کرده و بعد از آن وارد مسیر مربوط به یونیت شده و روی Open کلیک کنید.
3- حال درون هر فرمی که می خواهی این یونیت را به کار ببرید وارد شده و با استفاده از منوی File > Use Unit و انتخاب این یونیت آن را برای آن فرم فعال کنید.
ب) نحوه بکار گیری توابع موجود در یونیت:
بر روی EditBox مورد نظر دابل کلیک کرده و کد زیر را وارد کنید:
Edit1.Text :=Argham( Edit1.Text , 1);
Edit1.SelStart :=length( Edit1.text );
دانلود