04-01-2012, 08:06 AM
يمكن انشاء وحدة جديدة و نكتب الكود اعلاه فى القسم implementation
ثم نعرف الوحدة فى مشروعنا و ذالك بكتابة اسم الوحدة TestUnit فى قسم Uses التابع لبرنامجك .
------او
كتابة الكود الذى ارفقته فى قسم implementation التابع لبرنامجك مباشرتا و استدعاء الدوال عادى.
كود :
unit TestUnit;
interface
//uses Windows;
function GeneratePWDSecutityString: string;
function MakeRNDString(Chars: string; Count: Integer): string;
function EncodePWDEx(Data, SecurityString: string; MinV: Integer = 0; MaxV: Integer = 5): string;
function DecodePWDEx(Data, SecurityString: string): string;
implementation
.
. هنا اكتب الكود الذى وجته فى الانترنت
.------او
كتابة الكود الذى ارفقته فى قسم implementation التابع لبرنامجك مباشرتا و استدعاء الدوال عادى.

