وظيفة رأس الحقوق (const atse: string ؛ const acount: integer): string ؛
تُرجع الدالة أحرف التثبيت على الجانب الأيمن من السلسلة
الوصف حقوق ('123456' ، 3) = '456'
الرجوع إلى وظيفة System.Copy
مثال EDIT3.TEXT: = حقوق (edit1.text ، spinedit1.value) ؛
━━━━━━━━━━━━━━━━━━━━━
وظيفة رأس Midstr (const atse: string ؛ const astart ، ecount: integer): string ؛
تُرجع الدالة أحرف ATEXT ATTEX ATTEX تبدأ من ASTART
وهذا يعني النسخ
الرجوع إلى وظيفة System.Copy
مثال edit3.text: = midstr (edit1.text ، spintiT1.value ، spinedit2.value) ؛
━━━━━━━━━━━━━━━━━━━━━
Searchbuf وظيفة الرأس (buf: pchar ؛ buflen: integer ؛ selstart ، طولها: integer ؛ SearchString: string ؛ الخيارات: tstringsearchoptions = [sodown]): pchar ؛
تُرجع الوظيفة أول موضع مؤشر تم تفتيشه
اشرح غالبًا ما يتم استخدام هذه الوظيفة للبحث في السلاسل في النص
المرجع <null>
مثال
////////// ابدأ SearchBuf
Function SearchedIt (editControl: tcustomedit ؛ const searchString: String ؛
SearchOptions: tstringsearchoptions ؛
var
العازلة ، P: PCHAR ؛
الحجم: كلمة ؛
يبدأ
النتيجة: = خطأ ؛
إذا (الطول (SearchString) = 0) ثم الخروج ؛
الحجم: = editControl.getTextLen ؛
إذا (الحجم = 0) ثم الخروج ؛
المخزن المؤقت: = stralloc (حجم + 1) ؛
يحاول
editControl.getTextBuf (Buffer ، size + 1) ؛
P: = SearchBuf (العازلة ، الحجم ، EditControl.selstart ، EditControl.Sellength ،
SearchString ، SearchOptions) ؛
إذا p <> nil ثم ابدأ
editControl.selstart: = p - buffer ؛
editControl.Sellength: = الطول (SearchString) ؛
النتيجة: = صحيح ؛
نهاية؛
أخيراً
StrDispose (عازلة) ؛
نهاية؛
نهاية؛
الإجراء tform1.button1click (المرسل: tobject) ؛
var
SearchOptions: tstringsearchoptions ؛
يبدأ
SearchOptions: = [] ؛
إذا تم تحديد مربعات الاختيار 1.chected ثم
تشمل (SearchOptions ، Sodown) ؛
إذا مربع الاختيار
تشمل (SearchOptions ، Somatchcase) ؛
إذا مربع الاختيار
تشمل (SearchOptions ، Sowholword) ؛
SearchedIt (memo1 ، edit1.text ، searchOptions) ؛
memo1.setfocus ؛
نهاية؛
////////// end searchbuf
━━━━━━━━━━━━━━━━━━━━━
وظيفة header Soundex (const atex: altength: tsoundexlength = 4): string ؛
تُرجع الوظيفة سلسلة الكشف
Explanation: وفقًا لطريقة الكشف (Soundex) ، يمكنك العثور على سلسلة التقاطع ؛
المرجع <null>
مثال edit2.text: = soundex (edit1.text ، spinedit1.value) ؛
━━━━━━━━━━━━━━━━━━━━━
وظيفة header SoundExint (const atex: altength: tsoundexintlength = 4): integer ؛
تُرجع الوظيفة عددًا صحيحًا الكشف
وهذا يعني أنه كلما زادت قيمة الطول ، زادت دقة فك التشفير
المرجع <null>
مثال على explination2.value: = soundexint (edit1.text ، spinedit1.value) ؛
━━━━━━━━━━━━━━━━━━━━━
decodesoundexint وظيفة الرأس (Avalue: integer): String ؛
تُرجع الدالة فك تشفير عدد صحيح التحقيق
الوصف decodesoundexint (SoundExint ('Hello')) يعادل Soundex ('hello')
المرجع <null>
مثال edit2.text: = decodesoundexint (quintiT2.value) ؛
━━━━━━━━━━━━━━━━━━━━━
First Function SoundExword (const atex: string): Word ؛
تُرجع الوظيفة قيمة الكشف عن النص
يشير إلى أنه لا يوجد طول معلمة تم إصلاحه إلى 4
المرجع <null>
مثال على explination2.value: = soundexword (edit1.text) ؛
━━━━━━━━━━━━━━━━━━━━━
أول وظيفة decodesoundexword (Avalue: Word): String ؛
تُرجع الدالة فك تشفير قيمة النص الكشف
الوصف decodesoundexword (SoundExword ('hello')) يعادل Soundex ('hello')
المرجع <null>
مثال edit2.text: = decodesoundexword (proinedIt2.value) ؛
━━━━━━━━━━━━━━━━━━━━━
وظيفة header SoundExSimilar (const atext ، Aother: altength: tsoundexlength = 4): boolean ؛
تُرجع الوظيفة ما إذا كانت سلاسل التحقيق في السلاسل هي نفسها
النتيجة الوصف: = Soundex (At ExteR ، alwength) = Soundex (Aother ، altength)
المرجع <null>
مثال check1.checked: = soundexsimilar (edit1.text ، edit2.text ، spinedit1.value) ؛
━━━━━━━━━━━━━━━━━━━━━
وظيفة header Soundexcompare (const atext ، Aother: altength: tsoundexlength = 4): integer ؛
تُرجع الوظيفة نتيجة مقارنة سلسلتين للكشف عن السلاسل
النتيجة الوصف: = AnsicomParester (Soundex (Attex ، altength) ، Soundex (Aother ، altength))
وظيفة المرجع sysutils.ansicomparestr
مثال على quittIt2.value: = SoundExCompare (edit1.text ، edit2.text ، spinedit1.value) ؛
━━━━━━━━━━━━━━━━━━━━━
First Function SoundExproc (const atext ، Aother: String): Boolean ؛
وظيفة استدعاء SoundExSimilar لإرجاع سلاسل التحقيق من السلاسل.
وصف القيمة الافتراضية للمتغير المتغير
وظيفة المرجع strutils.ansiresemblestext
مثال [var ansiresemblesproc: tcomparetextProc = SoundExproc ؛]