مكتبة الوظائف

مكتبة الوظائف:

// ابحث عن السلسلة التي تطابق السلسلة المستهدفة بشكل أفضل
وظيفة MaxMatchStr(DestStr:String;Strs:صفيف السلسلة):String;

// إزالة المسافات في النص
وظيفة FmtText(النص:سلسلة):سلسلة؛

// تنسيق أرقام الفاصلة العائمة وتصحيح أخطاء النقطة العائمة.
وظيفة FmtFloat (القيمة: ممتدة؛ الأرقام: عدد صحيح = 4): مزدوج؛

// استبدال السلسلة الفرعية في Str
الإجراء ReplaceStr(var Str:String;const SourceStr,DestStr:String);

// ما إذا كان التعبير Expression يحتوي على العنصر Item
وظيفة IncludeItem(Expression,Item:String):Boolean;

// عرض مربع الرسالة
وظيفة MsgBox (مقبض ثابت: Thandle؛ نص، تسمية توضيحية: سلسلة؛
العلم:عدد صحيح):عدد صحيح؛

// عرض الرسالة
الإجراء ShowMsg(Sender:TCustomForm;Msg:String);

// عرض الأخطاء وإنهاء الحدث الحالي
الإجراء ShowError(Sender:TCustomForm;Error:String);

// خطأ في العرض
الإجراء ErrorMsg(Sender:TCustomForm;Error:String);

//إظهار التحذير
الإجراء ShowWarning(Sender:TCustomForm;Warning:String);

// اقرأ اسم بيانات التسجيل وقيمتها
الإجراء GetNamesAndValues(Registry:TRegistry;NamesValues:TSTrings);

//اكتب البيانات في السجل
الإجراء WriteValues(Registry:TRegistry;ValueNames:array of String;Values:array of Variant);

// اقرأ قيمة السلسلة في التسجيل
وظيفة ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String= ):String;

//اكتب قيمة السلسلة في التسجيل
الإجراء WriteRegistString(ARootKey:HKEY;Key,Name,Value:String);

// اقرأ القيمة الصحيحة في التسجيل
وظيفة ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;

//اكتب قيمة عددية في التسجيل
الإجراء WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer);

// اقرأ القيمة المنطقية في التسجيل
وظيفة ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;

//اكتب قيمة منطقية في السجل
الإجراء WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean);

// تمثيل التاريخ بالتنسيق الصيني: XXXX year XX Month XX day
وظيفة DateToChinese(ADate:TDate):String;

// احصل على اسم الجهاز المحلي
وظيفة GetComputerName:سلسلة؛

// احصل على دليل الملفات المؤقتة
وظيفة GetWinTempDir:سلسلة؛

// احصل على دليل النظام
وظيفة GetSystemDir:سلسلة؛

// إنشاء اسم ملف مؤقت
الدالة GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;