// قد يكون الأشخاص الذين اعتادوا على Java أو C# غاضبًا جدًا من Delphi ولا لديهم أنواع أساسية لهم هنا.
وحدة baseclass.
واجهة
يستخدم
sysutils ، الفصول ، strutils ، idglobal ، الرياضيات ؛
يكتب
tcharset = مجموعة من char ؛
var
tnormalcharset: tcharset = [ #13 ، #10 ، #32 ، '.' ، '،' ، '؛'] ؛
يكتب
tstring = فئة
خاص
Ftext: String ؛
عام
وظيفة charat (Aposition: integer): char ؛
// رسائل الموقف المحدد
وظيفة tolowercase: الحمل الزائد ؛
فئة وظيفة tolowercase (astring: سلسلة): الحمل الزائد ؛
// العلبة السفلية
وظيفة touppercase: السلسلة ؛
وظيفة فئة touppercase (astring: سلسلة): الحمل الزائد ؛
//عاصمة
فئة وظيفة القيمة (Avalue: سلسلة): الحمل الزائد ؛
فئة الوظيفة القيمة (Avalue: Boolean): سلسلة ؛
سلسلة وظيفة الفئة (Avalue: String ؛ Avalues: مجموعة من السلسلة): Boolean ؛
وظيفة الفئة اليسار (Avalue: سلسلة ؛ الطول: عدد صحيح): سلسلة ؛
وظيفة الفئة اليمين (Avalue: سلسلة ؛ الطول: عدد صحيح): سلسلة ؛
دالة الفئة DELETEPREFIX (AVALUE: String ؛ FixedString: Tcharset = [#32]): String ؛
دالة الفئة DELETESUFFIX (AVALUE: String ؛ FixedString: Tcharset = [#32]): String ؛
//
دالة الفئة المقارنة (Avalue1: سلسلة ؛ avalue2: سلسلة): منطقية ؛
دالة الفئة hashcode (avalue: سلسلة): عدد صحيح ؛
وظيفة الفئة Lastchar (Avalue: String): Char ؛
فئة وظيفة stringReplace (const s ، oldpattern ، newPattern: string ؛
الأعلام: TreplaceFlags): سلسلة ؛
فئة وظيفة stringofchar (CH: char ؛ العد: عدد صحيح): سلسلة ؛
فئة وظيفة setString (var s: string ؛ buffer: pchar ؛ len: integer): string ؛
وظيفة الفئة getPy (Astr: String): String ؛
// الحصول على pinyin المقابلة.
وظيفة فئة isAllchinese (Astr: String): Boolean ؛
وظيفة فئة isAllenglish (Astr: String): Boolean ؛
وظيفة الفئة getFirstword (Avalue: string ؛ var aword: string ؛ aseparator: tcharset): integer ؛
وظيفة الفئة getFirstword (Avalue: string ؛ var aword: string ؛ aseparator: string): integer ؛
// قيمة الإرجاع هي الطول من البداية إلى المستند.
وظيفة class getAllword (Avalue: string ؛ aseparator: string): tstringlist ؛
// إرجاع جميع الكلمات الرئيسية. بعد استخدامه ، يرجى تحرير مجموعة النتائج ؛
// ملاحظة: من فضلك لا تستخدم هذه الوظيفة في الاستخدام المستقبلي. يرجى استخدام نسختها المعاد تحميلها
// getAllword (avalue: string ؛ aseparator: string ؛ astringlist: tstringList) ؛
إجراءات الفئة getAllword (Avalue: string ؛ aseparator: string ؛ astringlist: tstrings) ؛
// تحميل جميع مجموعات النتائج في قائمة AstringList ؛
إجراء الفئة getAllwordwithall (Avalue: String ؛ AseParator: String ؛ AstringList: tstrings) ؛
فئة وظيفة stringtocharset (Avalue: سلسلة): tcharset ؛
وظيفة فئة charsettoString (Avalue: tcharset): سلسلة ؛
تحديثات وظيفة الفئة (AoldString: String ؛ // السلسلة التي يتم تشغيلها
Aupdatesource: سلسلة.
Aupdatestring: وثيقة.
Asentenceseparator: سلسلة.
AwordseParator: String // Document Seplator ؛
): سلسلة.
// على سبيل المثال ، قيمة إرجاع "dbarcode asc ، dname desc '،' dbarcode '،' '،' ، ''
// 'dname desc' ؛
دالة الفئة حذف eleterepeat (AoldString: String ؛ // للتعامل مع الأحرف
adeletestring: char ؛
arepeat: char): string ؛
وظيفة الفئة ifthen (aexpression: boolean ؛ atrue: string ؛ afalse: string): String ؛
// إرجاع السلسلة المقابلة وفقًا لقيمة التعبير.
وظيفة فئة AbsolletOreLate (Aabsolute: سلسلة ؛ acurrent: string): String ؛
// بالنظر إلى ملفين ، قم بتحويل المسار المطلق إلى المسار النسبي.
دالة الفئة relatetoabsolute (arate: سلسلة ؛ acurrent: سلسلة): سلسلة ؛
وظيفة فئة مماثلة (aone ، atwo: سلسلة): عدد صحيح ؛
وظيفة الفئة getCharnum (Astring: String ؛ Achar: char): عدد صحيح ؛
فهرس وظيفة الفئة (Astring ، asubstring: سلسلة): عدد صحيح ؛
دالة الفئة Zerotoint (Astring: سلسلة): عدد صحيح ؛
وظيفة فئة Zerotofloat (Astring: String): Double ؛
دالة الفئة ZerotoStr (Astring: String): String ؛
وظيفة الفئة sametext (astring ، astring1: سلسلة): منطقية ؛
وظيفة فئة عكسية (Astring: String): String ؛
وظيفة فئة isValidip (const s: سلسلة): منطقية ؛
وظيفة فئة FillString (Achar: char ؛ الطول: عدد صحيح): سلسلة ؛
فئة وظيفة agtingString (const atext: string ؛ astart ، altength: cardinal ؛
const asubtext: سلسلة): سلسلة ؛
وظيفة الفئة getNextString (var sourcestring: string ؛ asplitchar: string): String ؛
نهاية؛
// نوع عدد صحيح.
tinteger = فئة
وظيفة الفئة inttost (Ainteger: integer): سلسلة ؛
وظيفة الفئة inttost (Ainteger: int64): سلسلة ؛
دالة الفئة isValidint (Astring: String): Boolean ؛
وظيفة الفئة isValidint64 (Astring: String): Boolean ؛
وظيفة الفئة maxint: عدد صحيح.
وظيفة الفئة maxlongint: عدد صحيح ؛
دالة الفئة hashcode (Ainteger: integer): عدد صحيح ؛
وظيفة الفئة inttobin (Ainteger: الكاردينال): سلسلة ؛
وظيفة الفئة inttohex (Ainteger: integer): سلسلة ؛
وظيفة الفئة hextoint (astring: سلسلة): عدد صحيح ؛
وظيفة فئة makeerialno (Ainteger: integer ؛ adigit: integer): String ؛
نهاية؛
tfloat = فئة
دالة الفئة isValidfloat (Astring: String): Boolean ؛
وظيفة الفئة maxdouble: مزدوج ؛
وظيفة الطبقة العقل: مزدوجة.
وظيفة فئة maxextended: ممتدة ؛
وظيفة فئة minextended: ممتدة ؛
دالة الفئة samevalue (const a ، b: single ؛ epsilon: single = 0): boalean ؛
دالة الفئة samevalue (const a ، b: double ؛ epsilon: double = 0): boalean ؛
وظيفة الفئة SameValue (const A ، B: Epsilon: Extended = 0): Boolean ؛
وظيفة فئة floattomoney (قيمة const: مزدوجة ؛ الجولة: منطقية = صواب): سلسلة ؛
نهاية؛
tboolean = الفصل
وظيفة فئة booltostr (Aboolean: Boolean): سلسلة ؛
وظيفة فئة strtobool (astring: سلسلة): منطقية ؛
نهاية؛
تطبيق
{tstring}
وظيفة getPyIndexchar (Achar: String): char ؛
يبدأ
كلمة الحالة (Achar [1]) SHL 8 + Word (Achar [2]) من
$ B0A1 .. $ B0C4: النتيجة: = 'a' ؛
$ B0C5 .. $ B2C0: النتيجة: = 'B' ؛
$ B2C1 .. $ b4ed: النتيجة: = 'c' ؛
$ b4ee .. $ b6e9: النتيجة: = 'd' ؛
$ B6EA .. $ B7A1: النتيجة: = 'e' ؛
$ B7A2 .. $ B8C0: النتيجة: = 'f' ؛
$ B8C1 .. $ B9FD: النتيجة: = 'g' ؛
$ b9fe .. $ BBF6: النتيجة: = 'H' ؛
$ BBF7 .. $ BFA5: النتيجة: = 'J' ؛
$ BFA6 .. $ C0AB: النتيجة: = 'k' ؛
$ C0AC .. $ C2E7: النتيجة: = 'l' ؛
$ C2E8 .. $ C4C2: النتيجة: = 'm' ؛
$ C4C3 .. $ C5B5: النتيجة: = 'n' ؛
$ C5B6 .. $ C5BD: النتيجة: = 'o' ؛
$ C5BE .. $ C6D9: النتيجة: = 'p' ؛
$ C6DA .. $ C8BA: النتيجة: = 'Q' ؛
$ C8BB .. $ C8F5: النتيجة: = 'r' ؛
$ C8F6 .. $ CBF9: النتيجة: = 's' ؛
$ cbfa .. $ cdd9: النتيجة: = 't' ؛
$ CDDA .. $ CEF3: النتيجة: = 'W' ؛
$ CEF4 .. $ D188: النتيجة: = 'x' ؛
$ D1B9 .. $ D4D0: النتيجة: = 'y' ؛
$ D4D1 .. $ D7F9: النتيجة: = 'Z' ؛
آخر
النتيجة: = char (0) ؛
نهاية؛
نهاية؛
دالة الفئة tstring.getpy (Astr: String): String ؛
var
أنا: عدد صحيح.
يبدأ
النتائج: = '' ؛
لأني: = 1 إلى الطول (AST) افعل
يبدأ
إذا كان bytetype (Astr ، i) = mbtrailbyte ثم
النتيجة: = النتيجة + getPyIndexchar (Astr [i - 1] + Astr [i])
آخر
إذا كان bytetype (Astr ، i) = mbsinglebyte ثم
النتيجة: = النتيجة + ast [i] ؛
نهاية؛
نهاية؛
وظيفة tstring.charat (aposition: integer): char ؛
يبدأ
النتيجة: = ftext [Aposition] ؛
نهاية؛
وظيفة فئة tstring.charsettoString (Avalue: Tcharset): سلسلة ؛
يبدأ
نهاية؛
وظيفة الفئة tstring.comparestring (Avalue1 ، Avalue2: String): Boolean ؛
يبدأ
النتيجة: = أقصى (avalue1) = أقصى (avalue2) ؛
نهاية؛
وظيفة فئة tstring.deleteprefix (Avalue: String ؛
ثابت: tcharset): سلسلة ؛
يبدأ
بينما System.Length (Avalue)> 0 تفعل
يبدأ
إذا Avalue [1] في ثابت ثم
حذف (Avalue ، 1 ، 1)
آخر
استراحة؛
نهاية؛
النتيجة: = avalue ؛
نهاية؛
وظيفة الفئة tstring.getFirstword (avalue: string ؛ var aword: string ؛ aseparator: tcharset
): عدد صحيح.
var
TMPSTR: سلسلة ؛
TMPPOS: عدد صحيح ؛
يبدأ
TMPSTR: = deletesuffix (avalue ، aseparator) ؛
TMPSTR: = deleteprefix (avalue ، aseparator) ؛
النتيجة: = الطول (avalue) - الطول (TMPSTR) ؛
{إذا كان الطول (TMPSTR) = 0 ثم الخروج ؛
إذا (TMPSTR [1] = '' '') و (TMPSTR [2] = '' '') ثم
يبدأ
ل TMPPOS: = 3 إلى الطول (TMPSTR) تفعل
يبدأ
إذا كان TMPSTR [TMPPOS] في ['' ''] ثم
استراحة؛
نهاية؛
نهاية؛
إذا tmppos> 3 ثم tmppos: = tmppos + 2 ؛
}
لـ TMPPOS: = 1 إلى الطول (TMPSTR)
يبدأ
إذا كان TMPSTR [TMPPOS] في AseParator ثم
استراحة؛
نهاية؛
TMPPOS: = TMPPOS -1 ؛
// {todo: -oghs إصلاح المعلمة الأخيرة تحليلها بشكل غير صحيح}
if (tmppos = 0) و (avalue <> '') ثم
TMPPOS: = الطول (avalue) ؛
aword: = نسخة (avalue ، النتيجة + 1 ، tmppos) ؛
النتيجة: = النتيجة + TMPPOS ؛
نهاية؛
دالة الفئة tstring.hashCode (Avalue: سلسلة): عدد صحيح ؛
var
أنا: عدد صحيح.
tmpvalue: عدد صحيح ؛
يبدأ
TMPValue: = 0 ؛
لأني: = 1 إلى system.length (avalue) افعل
يبدأ
tmpvalue: = 3 * tmpvalue + ord (avalue [i]) ؛
نهاية؛
النتيجة: = TMPValue ؛
نهاية؛
وظيفة فئة tstring.isallchinese (AST: سلسلة): منطقية ؛
var
أنا: عدد صحيح.
يبدأ
النتيجة: = صحيح ؛
لأني: = 1 إلى الطول (AST) افعل
يبدأ
إذا كان bytetype (Astr ، i) = mbsinglebyte ثم
يبدأ
النتيجة: = خطأ ؛
استراحة؛
نهاية؛
نهاية؛
نهاية؛
وظيفة فئة tstring.isallenglish (Astr: String): Boolean ؛
var
أنا: عدد صحيح.
يبدأ
النتيجة: = صحيح ؛
لأني: = 1 إلى الطول (AST) افعل
يبدأ
إذا كان bytetype (Astr ، i) <> mbsinglebyte ثم
يبدأ
النتيجة: = خطأ ؛
استراحة؛
نهاية؛
نهاية؛
نهاية؛
وظيفة فئة tstring.lastchar (avalue: سلسلة): char ؛
يبدأ
النتيجة: = avalue [system.length (avalue)] ؛
نهاية؛
دالة الفئة tstring.left (avalue: string ؛ altength: integer): String ؛
يبدأ
النتيجة: = نسخة (avalue ، 1 ، الطول) ؛
نهاية؛
دالة الفئة tstring.right (Avalue: string ؛ altength: integer): String ؛
يبدأ
النتيجة: = strutils.rightstr (avalue ، altength) ؛
نهاية؛
وظيفة فئة tstring.setstring (var s: string ؛ buffer: pchar ؛
لين: عدد صحيح): سلسلة ؛
يبدأ
System.SetString (S ، Buffer ، Len) ؛
النتائج: = s ؛
نهاية؛
وظيفة فئة tstring.stringin (avalue: سلسلة ؛
Avalues: مجموعة من السلسلة): منطقية ؛
var
أنا: عدد صحيح.
يبدأ
النتيجة: = خطأ ؛
لأني: = منخفضة (الجوانب) إلى ارتفاع (Avalues) تفعل
يبدأ
إذا كان الكبير (Avalue) = أقصى (Avalues [i]) ثم
يبدأ
النتيجة: = صحيح ؛
استراحة؛
نهاية؛
نهاية؛
نهاية؛
وظيفة فئة tstring.stringofchar (CH: char ؛ العد: عدد صحيح): سلسلة ؛
يبدأ
النتيجة: = System.Stringofchar (CH ، Count) ؛
نهاية؛
وظيفة فئة tstring.stringreplace (const s ، Oldpattern ،
NewPattern: سلسلة ؛
يبدأ
النتيجة: = sysutils.stringReplace (S ، Oldpattern ، newpattern ، flags) ؛
نهاية؛
وظيفة فئة tstring.stringToCharset (Avalue: سلسلة): tcharset ؛
var
أنا: عدد صحيح.
يبدأ
النتائج: = [] ؛
لأني: = 1 إلى الطول (avalue) افعل
يبدأ
النتيجة: = النتيجة + [avalue [i]] ؛
نهاية؛
نهاية؛
وظيفة tstring.toLowercase: سلسلة ؛
يبدأ
النتيجة: = shallcase (ftext) ؛
نهاية؛
وظيفة tstring.touppercase: سلسلة ؛
يبدأ
النتيجة: = الأحرف الكبيرة (ftext) ؛
نهاية؛
وظيفة فئة tstring.valueof (avalue: منطقية): سلسلة ؛
يبدأ
إذا كانت Avalue ثم
النتيجة: = "نعم"
آخر
النتيجة: = "لا" ؛
نهاية؛
وظيفة فئة tstring.valueof (Avalue: سلسلة): منطقية ؛
يبدأ
النتيجة: = stringin (avalue ، ['yes' ، 'yes' ، 'ok']) ؛
نهاية؛
وظيفة الفئة tstring.getFirstword (avalue: string ؛ var aword: String ؛
Aseparator: سلسلة): عدد صحيح ؛
يبدأ
النتيجة: = getFirstword (avalue ، aword ، stringtocharset (aseparator)) ؛
نهاية؛
وظيفة الفئة tstring.getAllword (Avalue ، AseParator: String): TstringList ؛
var
tmplist: tstringlist ؛
tmpword: String ؛
يبدأ
tmplist: = tstringList.create ؛
بينما الطول (avalue)> 0 تفعل
يبدأ
tmpword: = '' ؛
حذف (Avalue ، 1 ، getFirstword (Avalue ، tmpword ، aseparator)) ؛
إذا tmpword <> '' ثم
tmplist.add (tmpword)
آخر
استراحة؛
نهاية؛
النتيجة: = tmplist ؛
نهاية؛
وظيفة الطبقة tstring.updatesentence (Aoldstring ، aupdatesource ،
AupdateString ، Asentenceseparator ، awordseparator: سلسلة): سلسلة ؛
var
tmpsentence: سلسلة.
tmpword: String ؛
tmpword1: سلسلة ؛
أنا: عدد صحيح.
tmpresult: سلسلة ؛
يبدأ
// احصل على الجملة الأولى
tmpsentence: = Aoldstring ؛
tmpresult: = '' ؛
بينما الطول (tmpsentence)> 0 تفعل
يبدأ
i: = getFirstword (tmpsentence ، tmpword ، asentenceseparator) ؛
tmpresult: = tmpresult + اليسار (tmpsentence ، i - الطول (tmpword)) ؛
حذف (tmpsentence ، 1 ، i) ؛
إذا tmpword <> '' ثم
يبدأ
i: = getFirstword (tmpword ، tmpword1 ، awordseparator) ؛
tmpresult: = tmpresult + left (tmpword ، i - length (tmpword1)) ؛
إذا كانت المقارنة (TMPWord1 ، AUPDatesource) ثم
يبدأ
tmpresult: = tmpresult + aupdateString ؛
نهاية
آخر
يبدأ
tmpresult: = tmpresult + tmpword ؛
نهاية؛
نهاية؛
نهاية؛
tmpresult: = deleteprefix (tmpresult ، ['' ، '،']) ؛
tmpresult: = deletesuffix (tmpresult ، ['' ، '،']) ؛
tmpresult: = deleterePeat (tmpresult ، '،' ، '') ؛
tmpresult: = deleterePeat (tmpresult ، '' ، '') ؛
النتيجة: = tmpresult ؛
نهاية؛
وظيفة فئة tstring.deleterePeat (Aoldstring: سلسلة ؛ adeletestring ،
arepeat: char): سلسلة ؛
var
أنا: عدد صحيح.
TMPFIND1: منطقية ؛
يبدأ
tmpfind1: = false ؛
لأني: = الطول (AoldString) Down To 1 Do
يبدأ
إذا TMPFIND1 ثم
يبدأ
إذا كان Aoldstring [i] = adeletestring ثم
حذف (Aoldstring ، أنا ، 1)
آخر
يبدأ
إذا AoldString [i] = arepeat ثم
يكمل؛
tmpfind1: = AoldString [i] = adeletestring ؛
نهاية؛
نهاية
آخر
يبدأ
إذا adeletestring <> arepeat ثم
إذا AoldString [i] = arepeat ثم
يكمل؛
tmpfind1: = Aoldstring [i] = adeletestring
نهاية؛
نهاية؛
النتيجة: = Aoldstring ؛
نهاية؛
وظيفة فئة tstring.deletesuffix (Avalue: سلسلة ؛
ثابت: tcharset): سلسلة ؛
يبدأ
بينما System.Length (Avalue)> 0 تفعل
يبدأ
إذا avalue [system.length (avalue)] في ثابت ثم
حذف (avalue ، system.length (avalue) ، 1)
آخر
استراحة؛
نهاية؛
النتيجة: = avalue ؛
نهاية؛
إجراء الفئة tstring.getAllword (avalue ، aseparator: string ؛
قائمة Astringlist: tstrings) ؛
var
tmpword: String ؛
يبدأ
إذا astringlist = nil ثم
قائمة Astringlist: = tstringList.create ؛
بينما الطول (avalue)> 0 تفعل
يبدأ
tmpword: = '' ؛
حذف (Avalue ، 1 ، getFirstword (Avalue ، tmpword ، aseparator)) ؛
إذا tmpword <> '' ثم
AstringList.add (TMPWORD)
آخر
استراحة؛
نهاية؛
نهاية؛
وظيفة الطبقة tstring.Ifthen (aexpression: منطقية ؛ atrue ،
AFALSE: سلسلة): سلسلة ؛
يبدأ
إذا aexpression ثم
النتيجة: = atrue
آخر
النتيجة: = afalse ؛
نهاية؛
وظيفة فئة tstring.absolutetorelate (Aabsolute ،
Acurrent: سلسلة): سلسلة ؛
var
tmpsimilarstring: سلسلة.
Aoldfile: سلسلة.
أنا: عدد صحيح.
TMPPOS: عدد صحيح ؛
يبدأ
// بعد التحويل ، يتشكل .../../A.Ini ؛
// إذا لم يكن على نفس محرك الأقراص ، فسيعود مباشرة إلى المسار المطلق.
إذا استخرجت extractfiledrive (aabsolute) <> extractfiledrive (acurrent) ثم
النتيجة: = aabsolute
آخر
يبدأ
tmpsimilarstring: = '' ؛
Aoldfile: = aabsolute ؛
aabsolute: = extractFilePath (aabsolute) ؛
TMPPOS: = مماثل (aabsolute ، acurrent) ؛
حذف (Aoldfile ، 1 ، tmppos - 1) ؛
حذف (Acurrent ، 1 ، tmppos - 1) ؛
بالنسبة لـ i: = 0 to getcharnum (Acurrent ، '/') -1 do
يبدأ
tmpsimilarString: = tmpsimilarstring + '../' ؛
نهاية؛
النتيجة: = tmpsimilarString + Aoldfile ؛
نهاية؛
نهاية؛
وظيفة فئة tstring.relatetoabsolute (arate ، acurrent: string): String ؛
var
tmpsimilarstring: سلسلة.
tmprootcount: عدد صحيح ؛
أنا: عدد صحيح.
يبدأ
إذا الطول (areLate)> 2 ثم
يبدأ
إذا areLate [2] = ':' ثم
يبدأ
النتيجة: = arelate ؛
مخرج؛
نهاية؛
نهاية؛
tmpsimilarstring: = '' ؛
tmprootcount: = 0 ؛
بينما صحيح تفعل
يبدأ
إذا كان Leftstr (arelate ، 3) = '../' ثم
يبدأ
INC (TMPRootCount) ؛
حذف (arelate ، 1 ، 3) ؛
نهاية
آخر
استراحة؛
نهاية؛
tmpsimilarString: = ReverseString (extractFilePath (acurrent)) ؛
لأني: = 0 إلى tmprootcount تفعل
يبدأ
حذف (tmpsimilarstring ، 1 ، pos ('/' ، tmpsimilarstring)) ؛
نهاية؛
النتيجة: = الانعكاس (tmpsimilarstring) + areLate ؛
نهاية؛
دالة الفئة tstring.similarposition (aone ، atwo: string): integer ؛
var
أنا: عدد صحيح.
ماكس: عدد صحيح ؛
يبدأ
إذا كان الطول (AONE) <الطول (ATWO) ثم
كحد أقصى: = الطول (AONE)
آخر
الحد الأقصى: = الطول (ATWO) ؛
لأني: = 1 إلى الحد الأقصى
يبدأ
إذا كان [i] <> atwo [i] ثم
استراحة؛
نهاية؛
النتائج: = i ؛
نهاية؛
وظيفة فئة tstring.getcharnum (astring: string ؛ achar: char): integer ؛
var
أنا: عدد صحيح.
يبدأ
النتائج: = 0 ؛
لأني: = 1 إلى الطول (ASTRING) تفعل
يبدأ
إذا تم تمرير [i] = أشار ثم
INC (نتيجة) ؛
نهاية؛
نهاية؛
إجراء الفئة tstring.getAllwordwithall (Avalue ، AseParator: String ؛
قائمة Astringlist: tstrings) ؛
var
TMPI: عدد صحيح ؛
TMPPOS: عدد صحيح ؛
يبدأ
إذا astringlist = nil ثم
قائمة Astringlist: = tstringList.create ؛
TMPPOS: = 0 ؛
بينما الطول (avalue)> 0 تفعل
يبدأ
لـ TMPI: = 1 إلى الطول (avalue) افعل
يبدأ
tmppos: = pos (avalue [tmppos] ، aseparator) ؛
إذا tmppos> 0 ثم
يبدأ
AstringList.Add (نسخة (Avalue ، 1 ، tmppos - 1)) ؛
AstringList.Add (نسخة (Avalue ، tmppos ، 1)) ؛
حذف (avalue ، 1 ، tmppos) ؛
استراحة؛
نهاية
نهاية؛
نهاية
نهاية؛
دالة الفئة tstring.toLowercase (Astring: String): String ؛
يبدأ
النتيجة: = صغيرة (ASTRING) ؛
نهاية؛
دالة الفئة tstring.touppercase (Astring: String): String ؛
يبدأ
النتيجة: = أقصى (ASTRING) ؛
نهاية؛
دالة الفئة tstring.indexof (Astring ، asubstring: سلسلة): عدد صحيح ؛
يبدأ
النتيجة: = pos (asubstring ، astring) ؛
نهاية؛
وظيفة فئة tstring.zerotoint (Astring: String): integer ؛
يبدأ
إذا تقطع (astring) = '' ثم
ASTRING: = '0' ؛
النتيجة: = strtoint (astring) ؛
نهاية؛
دالة الفئة tstring.zerotofloat (Astring: String): Double ؛
يبدأ
إذا تقطع (astring) = '' ثم
ASTRING: = '0.0' ؛
النتيجة: = strtofloat (Astring) ؛
نهاية؛
دالة الفئة tstring.sametext (Astring ، Astring1: String): Boolean ؛
يبدأ
النتيجة: = sysutils.sametext (Astring ، Astring1) ؛
نهاية؛
دالة الفئة tstring.reverse (Astring: String): String ؛
يبدأ
النتيجة: = الانعكاس (ASTRING) ؛
نهاية؛
وظيفة فئة tstring.isvalidip (const s: string): منطقية ؛
var
J ، أنا: عدد صحيح ؛
LTMP: سلسلة ؛
يبدأ
النتيجة: = صحيح ؛
LTMP: = trim (s) ؛
لأني: = 1 إلى 4 تبدأ
j: = strtointdef (fetch (ltmp ، '.') ، -1) ؛
النتيجة: = النتيجة و (j> -1) و (j <256) ؛
إذا لم تكن نتائج ثم ابدأ
استراحة؛
نهاية؛
نهاية؛
نهاية؛
وظيفة فئة tstring.zerotostr (astring: سلسلة): سلسلة ؛
يبدأ
إذا تقطع (astring) = '' ثم
النتيجة: = '0'
آخر
النتيجة: = ASTRING ؛
نهاية؛
وظيفة فئة tstring.fillString (Achar: char ؛ altength: integer): String ؛
var
أنا: عدد صحيح.
يبدأ
النتائج: = '' ؛
لأني: = 1 إلى altength do // التكرار
يبدأ
النتيجة: = النتيجة + أشار ؛
نهاية
نهاية؛
وظيفة الفئة tstring.stuffstring (const atext: string ؛ Astart ،
الطول: الكاردينال ؛
يبدأ
النتيجة: = strutils.stuffString (atext ، astart ، altength ، asubtext) ؛
نهاية؛
وظيفة فئة tstring.getNextString (var sourcestring: string ؛
Asplitchar: سلسلة): سلسلة ؛
var
TMPPOS: عدد صحيح ؛
يبدأ
TMPPOS: = pos (asplitchar ، sourcestring) ؛
إذا كان TMPPOS = 0 ثم
يبدأ
النتيجة: = sourcestring ؛
Sourcestring: = ''
نهاية
آخر
يبدأ
النتيجة: = tstring.left (sourcestring ، tmppos -1) ؛
حذف (sourcestring ، 1 ، tmppos) ؛
نهاية؛
نهاية؛
{tinteger}
دالة الفئة tinteger.inttoStr (Ainteger: integer): String ؛
يبدأ
النتيجة: = sysutils.inttoStr (Ainteger) ؛
نهاية؛
وظيفة فئة tinteger.hashCode (Ainteger: integer): integer ؛
يبدأ
النتيجة: = integer ؛
نهاية؛
دالة الفئة tinteger.inttoStr (Ainteger: int64): String ؛
يبدأ
النتيجة: = sysutils.inttoStr (Ainteger) ؛
نهاية؛
وظيفة فئة tinteger.isvalidint (Astring: سلسلة): منطقية ؛
يبدأ
النتيجة: = صحيح ؛
يحاول
strtoint (Astring) ؛
يستثني
النتيجة: = خطأ ؛
نهاية؛
نهاية؛
وظيفة فئة tinteger.isvalidint64 (Astring: String): Boolean ؛
يبدأ
النتيجة: = صحيح ؛
يحاول
strtoint (Astring) ؛
يستثني
النتيجة: = خطأ ؛
نهاية؛
نهاية؛
وظيفة فئة tinteger.maxint: عدد صحيح ؛
يبدأ
النتيجة: = system.maxint ؛
نهاية؛
وظيفة فئة tinteger.maxlongint: عدد صحيح ؛
يبدأ
النتيجة: = System.MaxLongint ؛
نهاية؛
وظيفة فئة tinteger.inttobin (Ainteger: Cardinal): String ؛
var
أنا: عدد صحيح.
يبدأ
setLength (النتيجة ، 32) ؛
لأني: = 1 إلى 32 تفعل
يبدأ
إذا ((AINTEGER SHL (I-1)) SHR 31) = 0 ثم
النتيجة [i]: = '0'
آخر
النتيجة [i]: = '1' ؛
نهاية؛
نهاية؛
وظيفة فئة tinteger.inttohex (Ainteger: integer): String ؛
يبدأ
النتيجة: = sysutils.inttohex (Ainteger ، 0) ؛
نهاية؛
دالة الفئة tinteger.hextoint (Astring: String): integer ؛
يبدأ
إذا tstring.left (Astring ، 1) = '$' ثم
النتيجة: = strtoint (Astring)
آخر
النتيجة: = strtoint ('$' + astring) ؛
نهاية؛
وظيفة فئة tinteger.makeserialno (Ainteger ، adigit: integer): String ؛
var
TMPSTR: سلسلة ؛
أنا: عدد صحيح.
يبدأ
TMPSTR: = '' ؛
لأني: = 0 إلى adigit - 1 do // التكرار
يبدأ
TMPSTR: = TMPSTR + '0' ؛
نهاية
النتيجة: = FormatFloat (TMPSTR ، Ainteger) ؛
نهاية؛
{tfloat}
وظيفة فئة tfloat.floattomoney (قيمة const: مزدوجة ؛ الجولة: منطقية): سلسلة ؛
يبدأ
// يتم تقريب المبلغ افتراضيًا
نهاية؛
دالة الفئة tfloat.isvalidfloat (Astring: String): Boolean ؛
يبدأ
النتيجة: = صحيح ؛
يحاول
strtofloat (string) ؛
يستثني
النتيجة: = خطأ ؛
نهاية؛
نهاية؛
وظيفة فئة tfloat.maxdouble: مزدوج ؛
يبدأ
النتيجة: = 1.7e+308 ؛
نهاية؛
وظيفة فئة tfloat.maxextended: ممتدة ؛
يبدأ
النتيجة: = 1.1e+4932 ؛
نهاية؛
وظيفة فئة tfloat.mindouble: مزدوجة ؛
يبدأ
النتيجة: = 5.0e-324 ؛
نهاية؛
وظيفة فئة tfloat.minextended: ممتدة ؛
يبدأ
النتائج: = 3.4E-4932 ؛
نهاية؛
وظيفة فئة tfloat.samevalue (const a ، b: واحد ؛
إبسيلون: واحد): منطقية ؛
يبدأ
النتيجة: = Math.SameValue (A ، B ، Epsilon) ؛
نهاية؛
وظيفة فئة tfloat.samevalue (const a ، b: double ؛
إبسيلون: مزدوج): منطقية ؛
يبدأ
النتيجة: = Math.SameValue (A ، B ، Epsilon) ؛
نهاية؛
وظيفة فئة tfloat.samevalue (const a ، b: ممتدة ؛
إبسيلون: ممتد): منطقية ؛
يبدأ
النتيجة: = Math.SameValue (A ، B ، Epsilon) ؛
نهاية؛
{tboolean}
وظيفة فئة tboolean.booltostr (Aboolean: Boolean): String ؛
يبدأ
إذا كان الكلاب ثم
النتيجة: = "صحيح"
آخر
النتيجة: = 'false' ؛
نهاية؛
وظيفة فئة tboolean.strtbool (Astring: String): Boolean ؛
يبدأ
إذا كان الكبير (ASTRING) = "صحيح" ثم
النتيجة: = صحيح
آخر
النتيجة: = خطأ ؛
نهاية؛
نهاية.