آژانس هواپیماییexchanging

MakeItString Make Registration Key تبدیل String به Integer ب اساس یک تابع ساخت Random

شروع موضوع توسط hasanjj ‏20 آپریل 2008 در انجمن Delphi

  1. hasanjj

    hasanjj Registered User

    تاریخ عضویت:
    ‏3 آگوست 2007
    نوشته ها:
    186
    تشکر شده:
    1
    تبدیل String به Integer بر اساس یک تابع ساخت Random
    تابع MakeItString برنامه زیر برای تبدیل هر نوع string به Integer استفاده میشود.
    در Button براساس یک تابع random مقدار تابع Total به Integer تبدیل میشود.
    کاربرد این قسمت برای ساخت کد رجیستر برای برنامه ها می باشد.
    که برای ثبت برنامه استفاده میشود. (برای این کار می توانید به جای String Total از TEdit استفاده کنید مثلا برای Name و E-mail )

    سورس کد کامل:
    http://www.delphiwares.com/showthread.php?goto=newpost&t=54

    در آخر Timer1 یک شمارنده میباشد که بعد از برابری کد ساخته شده و مقایسه با مقدار String Edit1 متوقف میشود.