وظائف سلسلة Delphi

يستخدم strutils.

الوظيفة الأولى ansiresemblestext (const atext ، Aother: String): Boolean ؛

$ [strutils.pas

تعود الوظيفة ما إذا كانت السلاسل متشابهة

الوصف المعهد الأمريكي للمعايير الوطنية الأمريكية ؛

وظيفة مرجعية strutils.soundexproc ؛

مثال check1.checked: = ansiresemblestext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsiContainStext (const atext ، asubtext: string): Boolean ؛

$ [strutils.pas

تُرجع الدالة ما إذا كانت السلسلة ATEXT تحتوي

يشير إلى حالة غير حساسة

وظيفة مرجعية strutils.ansiuppercase

مثال check1.checked: = AnsicontainStext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsistartStext (const asubtext ، atext: string): Boolean ؛

$ [strutils.pas

تُرجع الدالة ما إذا كانت السلسلة atext تبدأ بنص أسطول فرعي

يشير إلى حالة غير حساسة

وظيفة المرجع Windows.comparestring

مثال check1.checked: = AnsistartStext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsiendStext (const asubtext ، Atext: String): Boolean ؛

$ [strutils.pas

تُرجع الدالة ما إذا كانت السلسلة AT Extr

يشير إلى حالة غير حساسة

وظيفة المرجع Windows.comparestring

مثال check1.checked: = AnsiendStext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى ansireplacetext (const atext ، afromtext ، atotext: string):

سلسلة

تُرجع الدالة نتيجة استبدال Afromtext Sundring مع ATOText Sundring في سلسلة ATTEXT

يشير إلى حالة غير حساسة

وظيفة مرجعية sysutils.stringreplace ؛

مثال edit4.text: = ansireplacetext (edit1.text ، edit2.text ، edit3.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsimatchText (const atext: string ؛ const avalues: Array of

سلسلة): منطقية ؛

تُرجع الوظيفة ما إذا تم تضمين سلسلة atsex

يشير إلى حالة غير حساسة

وظيفة المرجع strutils.ansiindextext

مثال checkbox1.checked: = ansimatchtext (edit1.text ، ['a1' ، 'a2' ، 'a3' ،

'A4']) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى ANSIINDEXTEXT (const atext: String ؛ Const Avalues: Array of

سلسلة): عدد صحيح ؛

تقوم الدالة بإرجاع موضع السلسلة في Attex

يشير إلى أنه غير حساس للحالة

وظيفة المرجع sysutils.ansisametext

مثال على quittit1.value: = Ansiindextext (edit1.text ، ['a1' ، 'a2' ، 'a3' ، 'a4']) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Ansicontainsstr (const atext ، asubtext: string): Boolean ؛

$ [strutils.pas

تُرجع الدالة ما إذا كانت السلسلة ATEXT تحتوي

وصف حالة حساسة

وظيفة المرجع strutils.ansipos

مثال check1.checked: = Ansicontainsstr (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Ansistartsstr (const asubtext ، atext: string): Boolean ؛

$ [strutils.pas

تُرجع الدالة ما إذا كانت السلسلة atext تبدأ بنص أسطول فرعي

وصف حالة حساسة

وظيفة المرجع sysutils.ansisamester

مثال Check1.checked: = Ansistartsstr (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsiendsStr (const asubtext ، Atext: String): Boolean ؛

$ [strutils.pas

تُرجع الدالة ما إذا كانت السلسلة AT Extr

وصف حالة حساسة

وظيفة المرجع sysutils.ansisamester

مثال check1.checked: = AnsiendsStr (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Ansireplacester (const atext ، afromtext ، atotext: string):

سلسلة

تُرجع الدالة نتيجة استبدال Afromtext Sundring مع ATOText Sundring في سلسلة ATTEXT

وصف حالة حساسة

وظيفة مرجعية sysutils.stringreplace ؛

مثال edit4.text: = ansireplacester (edit1.text ، edit2.text ، edit3.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Ansimatchstr (const atext: string ؛ const avalues: صفيف من

سلسلة): منطقية ؛

تُرجع الوظيفة ما إذا تم تضمين سلسلة atsex

وصف حالة حساسة

وظيفة المرجع strutils.ansiindexstr

مثال Check1.checked: = ansimatchstr (edit1.text ، ['a1' ، 'a2' ، 'a3' ،

'A4']) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى ansiindexstr (const atex

سلسلة): عدد صحيح ؛

تقوم الدالة بإرجاع موضع السلسلة في Attex

وصف حالة حساسة

وظيفة المرجع sysutils.ansisamester

مثال على explination1.value: = Ansiindexstr (edit1.text ، ['a1' ، 'a2' ، 'a3' ، 'a4']) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى غموض (const atext: string ؛ acount: integer): String ؛

$ [strutils.pas

تُرجع الوظيفة النسخ المتماثلة للثبات من السلسلة

يعود الوصف "عندما يكون ACOUNT 0

الرجوع إلى STIMPHING.SETLENGT

مثال edit3.text: = dupestring (edit1.text ، spinedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

عكس وظيفة الرأس (const atext: string): string ؛

تُرجع الدالة الترتيب العكسي للسلسلة

الوصف الانعكاس ('1234') = '4321'

الرجوع إلى STIMPHING.SETLENGT

مثال edit3.text: = REVERSESTRING (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى StuffString (Const atext: String ؛ Astart ، altength: Cardinal ؛

const asubtext: String): String ؛

تعيد الوظيفة الأوتار المتداخلة

الوصف ASTART: وضع التعشيش ؛

الرجوع إلى وظيفة System.Copy

مثال edit3.text: = agesterString (edit1.text ، tebitedit1.value ، quitedit2.value ،

edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

أول وظيفة عشوائية (const avalues: مجموعة من السلسلة): سلسلة ؛

$ [strutils.pas

تعمل الوظيفة بشكل عشوائي بإرجاع عنصر في Avalues ​​صفيف السلسلة

اشرح أنه يوصى بتنفيذ عشوائي من قبل

دالة المرجعية system.random

مثال عشوائي.

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس ifthen (avalue: boolean ؛ const atrue: string ؛ afalse: string =

''): الحمل الزائد ؛

تُرجع الدالة السلسلة المنطقية المحددة

Ifthen (صحيح ، "نعم" ، "لا") = "نعم" ؛ ifthen (خطأ ، "نعم" ، "لا") = "لا"

المرجع <null>

مثال edit3.text: = ifthen (checkbox1.checked ، edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة رأس LeftStr (const atsex: سلسلة ؛ const acount: integer): String ؛

$ [strutils.pas

تُرجع الدالة أحرف التثبيت على الجانب الأيسر من السلسلة على بعد

الوصف اليسار ('123456' ، 3) = '123'

الرجوع إلى وظيفة System.Copy

مثال edit3.text: = leftStr (edit1.text ، spinedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى حقوق (const atsex: سلسلة ؛ const acount: integer): String ؛

$ [strutils.pas

تُرجع الدالة أحرف التثبيت على الجانب الأيمن من السلسلة

الوصف حقوق ('123456' ، 3) = '456'

الرجوع إلى وظيفة System.Copy

مثال EDIT3.TEXT: = حقوق (edit1.text ، spinedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى midstrst (const atext: string ؛ const astart ، acount: integer):

سلسلة

تُرجع الدالة أحرف ATEXT ATTEX ATTEX تبدأ من ASTART

وهذا يعني النسخ

الرجوع إلى وظيفة System.Copy

مثال edit3.text: = midstr (edit1.text ، spintiT1.value ، spinedit2.value) ؛

━━━━━━━━━━━━━━━━━━━━━

First Function SearchBuf (buf: pchar ؛ buflen: integer ؛ selstart ، sellength:

عدد صحيح ؛

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

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Soundex (const atxt: string ؛ alength: tsoundexlength = 4):

سلسلة

تُرجع الوظيفة سلسلة الكشف

Explanation: وفقًا لطريقة الكشف (Soundex) ، يمكنك العثور على سلسلة من التقاطع ؛

المرجع <null>

مثال edit2.text: = soundex (edit1.text ، spinedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

دالة الرأس SoundExint (const atex

4): عدد صحيح

تُرجع الوظيفة عددًا صحيحًا الكشف

وهذا يعني أنه كلما زادت قيمة الطول ، زادت دقة فك التشفير

المرجع <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) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى SoundExSimilar (const atsex

TsoundExlength = 4): Boolean ؛

تُرجع الوظيفة ما إذا كانت سلاسل التحقيق في السلاسل هي نفسها

النتيجة الوصف: = Soundex (At ExteR ، alwength) = Soundex (Aother ، altength)

المرجع <null>

مثال Check1.checked: = SoundExSimilar (edit1.text ، edit2.text ،

locinedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى SoundExCompare (const atext ، Aother: string ؛ alength:

tsoundexlength = 4): عدد صحيح ؛

تُرجع الوظيفة نتيجة مقارنة سلسلتين للكشف عن السلاسل

النتيجة الوصف: = AnsicomParester (Soundex (Attex ، altength) ، Soundex (Aother ،

الطول))

وظيفة المرجع sysutils.ansicomparestr

مثال على ذلك

locinedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى SoundExproc (const atext ، Aother: String): Boolean ؛

$ [strutils.pas

وظيفة استدعاء SoundExSimilar لإرجاع سلاسل التحقيق من السلاسل.

وصف القيمة الافتراضية للمتغير المتغير

وظيفة المرجع strutils.ansiresemblestext

مثال [var ansiresemblesproc: tcomparetextProc = SoundExproc ؛]

━━━━━━━━━━━━━━━━━━━━━

وظيفة رأس NewsTr (const S: string): pstring ؛

تُرجع الدالة عنوان مؤشر سلسلة جديد

الوصف إرجاع nullstr عندما تكون السلسلة S فارغة

الرجوع إلى نظام الإجراء

مثال

///////////// BEGIN NEWSTR ، DISTOSTERSTR

الإجراء tform1.button1click (المرسل: tobject) ؛

var

P: pstring ؛

يبدأ

P: = newstr (edit1.text) ؛

edit2.text: = p^؛

disposestest (p) ؛

نهاية؛

///////////////end newstr ، disposester

━━━━━━━━━━━━━━━━━━━━━

الإجراء الأول disposester (p: pstring) ؛

وظائف إصدار سلسلة مؤشر P Resource P

الوصف استخدام مع NewsTr

الرجوع إلى نظام الإجراء

مثال <انظر أعلاه ، انظر أدناه>

━━━━━━━━━━━━━━━━━━━━━

الإجراء الأول issiststr (var p: pstring ؛ const s: string) ؛

$ [sysutils.pas

تحديث الوظائف سلسلة S إلى سلسلة مؤشر P

الموارد الوصف التي تم إصدار مؤشرات سلسلة مسبقًا عند تحديث القيم

وظيفة المرجع sysutils.newstr ؛ وظيفة sysutils.disposester

مثال

///////////// ابدأ تعيين

الإجراء tform1.button1click (المرسل: tobject) ؛

var

P: pstring ؛

يبدأ

P: = nil ؛

issiststr (p ، edit1.text) ؛

edit2.text: = p^؛

disposestest (p) ؛

نهاية؛

////////////// ENDINGSTR

━━━━━━━━━━━━━━━━━━━━━

الإجراء الأول appendstr (var dest: string ؛ const s: string) ؛

$ [sysutils.pas

وظيفة الإلحاح s year string dest

الوصف يعادل القدر: = Dest + S ؛

المرجع <null>

مثال

////////////// BEGIN ASPENDSTR

الإجراء tform1.button1click (المرسل: tobject) ؛

var

S: سلسلة.

يبدأ

S: = edit2.text ؛

APPENDSTR (s ، edit1.text) ؛

edit2.text: = s ؛

نهاية؛

/////////////end appendstr

━━━━━━━━━━━━━━━━━━━━━

دالة الرأس الكبيرة (const s: سلسلة): سلسلة ؛

تُرجع الدالة النموذج الرأسمالي للسلسلة S

يشير إلى أنه لا تتم معالجة الأحرف غير المحفوظة

الرجوع إلى نظام الإجراء

مثال edit2.text: = agresscase (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

أول وظيفة صغيرة (const s: string): string ؛

تُرجع الدالة النموذج الصغير للسلسلة S

يشير إلى أنه لا تتم معالجة الأحرف غير المنفردة

الرجوع إلى نظام الإجراء

مثال edit2.text: = loporcase (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة رأس المقارنة (const s1 ، s2: string): integer ؛

تعود الوظيفة لمقارنة حرفين

وصف S1> S2 Value> 0 ؛

المرجع <null>

مثال على explinedit1.value: = comparest (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

أول وظيفة مقارنة (P1 ، P2: مؤشر ؛ الطول: عدد صحيح): منطقية ؛

Assembler

مقارنة وظيفة مقارنة اثنين من مؤشرات الذاكرة

الوصف المقارن (PCHAR ('12A') ، pCHAR ('12C') ، 2) = true ؛ comparemem (pchar ('12a') ،

PCHAR ('12C') ، 3) = خطأ

المرجع <null>

مثال check1.checked: = comparemem (self ، form1 ، 8) ؛

━━━━━━━━━━━━━━━━━━━━━

CompareText وظيفة الرأس (const S1 ، S2: string): integer ؛

تعود الوظيفة لمقارنة سلسلتين

يشير إلى حالة غير حساسة

المرجع <null>

مثال على explinedit1.value: = comparetext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس sametext (const s1 ، s2: string): Boolean ؛

تعود الوظيفة ما إذا كانت سلسلتان متساوية

يشير إلى حالة غير حساسة

المرجع <null>

مثال check1.checked: = sametext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsiupperCase (const s: string): string ؛

تُرجع الدالة النموذج الرأسمالي للسلسلة S

الوصف معهد المعايير الوطنية الأمريكية) معهد المعايير الوطنية الأمريكية ؛

وظيفة المرجع Windows.CharupperBuff

مثال edit2.text: = ansiupperCase (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

أول وظيفة Ansilowercase (const s: string): string ؛

تُرجع الدالة النموذج الصغير للسلسلة S

يشير إلى أنه لا تتم معالجة الأحرف غير المنفردة

وظيفة المرجع Windows.CharlowerBuff

مثال edit2.text: = ansilowercase (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس AnsicomParestr (const S1 ، S2: سلسلة): عدد صحيح ؛

وظيفة العكس المقارنة بين سلسلتين

وصف S1> S2 Value> 0 ؛

وظيفة المرجع Windows.comparestring

مثال على explination1.value: = AnsicomParestr (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس Ansisamestr (const S1 ، S2: سلسلة): منطقية ؛

تعود الوظيفة ما إذا كانت سلسلتان متساوية

وصف حالة حساسة

وظيفة المرجع sysutils.ansicomparestr

مثال check1.checked: = Ansisamester (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس AnsicomParetext (const S1 ، S2: سلسلة): عدد صحيح ؛

وظيفة العكس المقارنة بين سلسلتين

وصف S1> S2 VALITY> 0 ؛

وظيفة المرجع Windows.comparestring

مثال على explination1.value: = AnsicomParetext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس Ansisametext (const S1 ، S2: سلسلة): منطقية ؛

تعود الوظيفة ما إذا كانت سلسلتان متساوية

يشير إلى حالة غير حساسة

وظيفة المرجع sysutils.ansicomparetext

مثال check1.checked: = ansisametext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس Ansistromp (S1 ، S2: PCHAR): عدد صحيح ؛

تعود الوظيفة لمقارنة سلاسل المؤشرتين

وصف S1> S2 Value> 0 ؛

وظيفة المرجع system.comparestring

مثال على expinitit1.value: = Ansistromp (PCHAR (EDIT1.TEXT) ، PCHAR (EDIT2.TEXT))

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس AnsistriComp (S1 ، S2: PCHAR): عدد صحيح ؛

تعود الوظيفة لمقارنة سلاسل المؤشرتين

وصف S1> S2

وظيفة المرجع Windows.comparestring

مثال على QuittIt1.value: = AnsistriComp (PCHAR (EDIT1.TEXT) ، PCHAR (EDIT2.TEXT))

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Ansistrlcomp (S1 ، S2: PCHAR ؛ Maxlen: Cardinal): integer ؛

$ [sysutils.pas

عودة الوظيفة لمقارنة سلاسل مؤشرتين محددة الطول

وصف S1> S2

وظيفة المرجع Windows.comparestring

مثال على explination1.value: = Ansistrlcomp (PCHAR (EDIT1.TEXT) ، PCHAR (EDIT2.TEXT) ،

locinedit2.value)

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsistriComp (S1 ، S2: PCHAR ؛ Maxlen: Cardinal): integer ؛

$ [sysutils.pas

عودة الوظيفة لمقارنة سلاسل مؤشرتين محددة الطول

وصف S1> S2 VALITY> 0 ؛

وظيفة المرجع Windows.comparestring

مثال على expinitit1.value: = AnsistriComp (PCHAR (EDIT1.TEXT) ، PCHAR (EDIT2.TEXT) ،

locinedit2.value)

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس Ansistrlower (STR: PCHAR): PCHAR ؛

وظيفة إرجاع سلسلة المؤشر الصغيرة

يشير إلى أنه لا تتم معالجة الأحرف غير المنفردة

وظيفة المرجع windows.charlower

مثال edit2.text: = ansistrlower (pchar (edit1.text)) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس Ansistrupper (STR: PCHAR): PCHAR ؛

وظيفة إرجاع سلسلة المؤشر

يشير إلى أنه لا تتم معالجة الأحرف غير المحفوظة

وظيفة المرجع windows.charupper

مثال edit2.text: = ansistrupper (pCHAR (edit1.text)) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى Ansilastchar (Const S: String): PCHAR ؛

تُرجع الدالة حرف المؤشر الأخير من السلسلة S

الوصف عندما تكون السلسلة S عبارة عن سلسلة فارغة ، يتم إرجاع مؤشر فارغ.

وظيفة المرجع sysutils.byteType

مثال edit2.text: = ansilastchar (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس Ansistrlastchar (P: PCHAR): PCHAR ؛

تُرجع الدالة حرف المؤشر الأخير لسلسلة المؤشر ص

الوصف عندما تكون السلسلة P مؤشرًا فارغًا ، فإنه يعيد مؤشرًا فارغًا.

وظيفة المرجع sysutils.byteType

مثال edit2.text: = ansilastchar (pchar (edit1.text)) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة رأس واسعة (const s: wideString): wideString ؛

تُرجع الوظيفة رسملة سلسلة مزدوجة بايت

الوصف أحرف widechar مزدوجة بايت

وظيفة المرجع windows.charupperbuffw

مثال edit2.text: = wideuppercase (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى wideLowercase (const s: wideString): wideString ؛

تُرجع الدالة النموذج الصغير لسلسلة بايت مزدوجة

هذا يعني لماذا لا يمكنني اختباره

وظيفة المرجع windows.charlowerbuffw

مثال edit2.text: = widelowercase (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى widecomparestr (const s1 ، s2: wideString): عدد صحيح ؛

$ [sysutils.pas

مقارنة الوظيفة مقارنة بين سلاسل بايت مزدوجة

وصف S1> S2 Value> 0 ؛

وظيفة المرجع Windows.comparestringw

مثال على expinitit1.value: = widecomparestr (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى (const S1 ، S2: WideString): Boolean ؛

تُرجع الوظيفة ما إذا كانت سلاسلان مزدوج البايت متماثلين

وصف حالة حساسة

وظيفة المرجع sysutils.widecomparestr

مثال check1.checked: = widesamestr (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى widecomparetext (const s1 ، s2: wideString): عدد صحيح ؛

$ [sysutils.pas

مقارنة الوظيفة مقارنة بين سلاسل بايت مزدوجة

وصف S1> S2 VALITY> 0 ؛

وظيفة المرجع Windows.comparestringw

مثال على explination1.value: = wideComParetext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى fidesametext (const S1 ، S2: wideString): Boolean ؛

$ [sysutils.pas

تُرجع الوظيفة ما إذا كانت سلاسلان مزدوج البايت متماثلين

يشير إلى حالة غير حساسة

وظيفة المرجع sysutils.widecomparetext

مثال checkbox1.checked: = widesametext (edit1.text ، edit2.text) ؛

━━━━━━━━━━━━━━━━━━━━━

تقليم وظيفة الرأس (const s: string ؛

تقليم الوظيفة الأولى (const s: widestring): widestring ؛

$ [sysutils.pas

تعود الدالة لإزالة الأحرف اليمنى واليسرى من السلسلة S

الشخصيات التي تشير إلى أن أقل من #32 تعتبر أحرف غير مرئية

الرجوع إلى وظيفة System.Copy

مثال edit2.text: = trim (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس trimleft (const s: string): string ؛

الوظيفة الأولى trimleft (const s: wideString): widestring ؛

$ [sysutils.pas

إرجاع الوظيفة لإزالة الأحرف غير المرئية على يسار السلسلة

الشخصيات التي تشير إلى أن أقل من #32 تعتبر أحرف غير مرئية

الرجوع إلى وظيفة System.Copy

مثال edit2.text: = trimleft (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس trimright (const s: string ؛

الوظيفة الأولى trimright (const s: widestring): widestring ؛

$ [sysutils.pas

إرجاع الوظيفة لإزالة الأحرف غير المرئية على يمين السلسلة S

الشخصيات التي تشير إلى أن أقل من #32 تعتبر أحرف غير مرئية

الرجوع إلى وظيفة System.Copy

مثال edit2.text: = trimright (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

Quoted QuotedStr (const s: string): $ [sysutils.pas

تُرجع الدالة التعبير عن السلسلة S في Pascal

Explanation: سيتم تحويل عرض أسعار واحد في اقتباس واحد إلى قسمين

الرجوع إلى نظام الإجراء

مثال edit2.text: = QuotedStr (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى ansiquotedstr (const s: string ؛ quote: char): String ؛

$ [sysutils.pas

تُرجع الدالة التعبير عن السلسلة S مع اقتباس الحرف كقوسات اقتباس

الوصف Ansiquotedstr ("Hello" World "،

'@') = '@hello "world@' ؛ ansiquotedstr ('hello" world' ، '' ') =' "hello" "world" "

وظيفة المرجع sysutils.ansistrscan

مثال edit2.text: = ansiquotedstr (edit1.text ، '"' ') ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى AnsiextractQuotedStr (var src: pchar ؛ quote: char): String ؛

$ [sysutils.pas

تُرجع الدالة النموذج الأصلي لاقتباس الحرف كقوسات اقتباس

وهذا يعني أن SRC لا يزال دون تغيير عندما يكون التعبير غير قانوني.

وظيفة المرجع sysutils.ansistrscan

مثال

////////// ابدأ ANSiextractQuotedStr

الإجراء tform1.button1click (المرسل: tobject) ؛

var

P: PCHAR ؛

يبدأ

P: = pCHAR (edit1.text) ؛

edit2.text: = ansiextractquotedstr (p ، '"' ') ؛

edit3.text: = p ؛

نهاية؛

////////// نهاية AnsiextractQuotedStr

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى ansidequotedstr (const s: string ؛ aquote: char): String ؛

$ [sysutils.pas

تُرجع الدالة النموذج الأصلي لحرف Aquote كاقتباسات

عندما يكون التعبير غير قانوني ، فإنه يعود

وظيفة المرجع sysutils.ansiextractquotedstr

مثال edit2.text: = ansidequotedstr (edit1.text ، '"' ') ؛

━━━━━━━━━━━━━━━━━━━━━

First Function AdjustlineBreaks (const s: string ؛ style: ttextlineBreakStyle =

{$ ifdef linux} tlbslf {$ endif} {$ ifdef mswindows} tlbscrlf {$ endif}):

سلسلة

تعود الوظيفة لضبط فاصل الخط للسلسلة المحددة إلى تسلسل CR/LF

يوضح

AdventLineBreaks ('1'#13'2 '#13) =' 1 '#13#10'2'#13#10 ؛ addlinebreaks ('1'#10'2 '#10) =' 1 '#13#10 '2'#13#10

وظيفة المرجع sysutils.strnextchar

مثال <Fray>

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس isValidident (Const Ident: String): Boolean ؛

تُرجع الدالة ما إذا كان معرف السلسلة هو المعرف الصحيح

الوصف معرف :: رسائل | السلة [الحروف | السلة | الأرقام] ...

المرجع <null>

مثال check1.checked: = isValIdident (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس inttost (القيمة: integer): الحمل الزائد ؛

وظيفة الرأس inttost (القيمة: int64): الحمل الزائد ؛

تُرجع الدالة قيمة عدد صحيح للتحويل إلى سلسلة

تنسيق الوصف ('٪ d' ، [القيمة])

وظيفة المرجع sysutils.fmtstr

مثال edit2.text: = inttoStr (pintedit1.value) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى inttoHex (القيمة: عدد صحيح ؛ الأرقام: عدد صحيح): السلسلة ؛

$ [sysutils.pas

الوظيفة الأولى inttoHex (القيمة: int64 ؛ الأرقام: عدد صحيح): السلسلة ؛

$ [sysutils.pas

تُرجع الدالة قيمة عدد صحيح إلى نتيجة أداء سداسية.

يحدد أرقام المعلمة الوصف الحد الأدنى لعرض الحرف ؛

وظيفة المرجع sysutils.fmtstr

مثال edit2.text: = inttoHex (quintiT1.value ، quitedit2.value) ؛

━━━━━━━━━━━━━━━━━━━━━

strtoint وظيفة الرأس (const s: string): integer ؛

تُرجع الدالة السلسلة لتحويلها إلى عدد صحيح

Explanation: سيتم سبب استثناء عندما يتم التعبير عن سلسلة من خلال عدم الاندماج

الرجوع إلى نظام الإجراء

مثال على explination1.value: = strtoint (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى strtointdef (const s: string ؛ الافتراضي: integer): integer ؛

$ [sysutils.pas

تُرجع الدالة السلسلة لتحويلها إلى عدد صحيح

يتم إرجاع الافتراضي عندما يتم التعبير عن السلسلة بواسطة غير المتكاملة.

الرجوع إلى نظام الإجراء

مثال على explinedit1.value: = strtointDef (edit1.text ، 0) ؛

━━━━━━━━━━━━━━━━━━━━━

First Function Trystroint (const S: String ؛ Out Value: Integer): Boolean ؛

$ [sysutils.pas

تُرجع الوظيفة ما إذا كانت السلسلة S قد تم تحويلها إلى قيمة عدد صحيح بنجاح

يتم إرجاع الوصف الخاطئ عندما يتم التعبير عن السلسلة من خلال عدم البث وسيتم إخراج القيمة كـ 0

الرجوع إلى نظام الإجراء

مثال

////////// ابدأ triststroint

الإجراء tform1.button1click (المرسل: tobject) ؛

var

أنا: عدد صحيح.

يبدأ

checkbox1.checked: = triststroint (edit1.text ، i) ؛

locinedit1.value: = i ؛

نهاية؛

////////// end Triststroint

━━━━━━━━━━━━━━━━━━━━━

وظيفة الرأس strtoint64 (const s: string): int64 ؛

تُرجع الدالة السلسلة لتحويلها إلى عدد صحيح أربعة وستين بت

Explanation: سيتم سبب استثناء عندما يتم التعبير عن سلسلة من عدد صحيح غير 64 بت.

الرجوع إلى نظام الإجراء

مثال على explination1.value: = strtoint64 (edit1.text) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى strtoint64def (const s: string ؛ const الافتراضي: int64): int64 ؛

$ [sysutils.pas

تُرجع الدالة السلسلة لتحويلها إلى عدد صحيح أربعة وستين بت

يتم إرجاع الافتراضي عندما يتم التعبير عن السلسلة بواسطة عدد صحيح غير 64 بت.

الرجوع إلى نظام الإجراء

مثال على explination1.value: = strtoint64def (edit1.text ، 0) ؛

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى trystrtoint64 (const s: string ؛ out value: int64): boolean ؛

$ [sysutils.pas

تُرجع الوظيفة ما إذا كان يتم تحويل السلسلة S إلى قيمة عدد صحيح أربعة وستين بت بنجاح

يتم إرجاع الوصف الخاطئ عندما يتم التعبير عن السلسلة بواسطة عدد صحيح غير ستة ستة وستة ستؤدي إلى إخراج 0

الرجوع إلى نظام الإجراء

مثال

////////// ابدأ tristtrtoint64

الإجراء tform1.button1click (المرسل: tobject) ؛

var

أنا: int64 ؛

يبدأ

checkbox1.checked: = tristtrtoint64 (edit1.text ، i) ؛

locinedit1.value: = i ؛

نهاية؛

////////// end tristtrtoint64

━━━━━━━━━━━━━━━━━━━━━

الوظيفة الأولى strtobool (const s: string): Boolean ؛

تقوم الدالة بإرجاع السلسلة لتحويلها إلى قيمة منطقية

سوف تسبب شخصية التفسير استثناءات عندما لا يتم التعبير عنها منطقيا

وظيفة المرجع sysutils.triststrobool

例子CheckBox1.Checked := StrToBool(Edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

首部function StrToBoolDef(const S: string; const Default: Boolean):

Boolean; $[SysUtils.pas

功能返回字符串S转换成逻辑值

说明字符非逻辑表达时则返回默认值Default

参考function SysUtils.TryStrToBool

例子CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);

━━━━━━━━━━━━━━━━━━━━━

首部function TryStrToBool(const S: string; out Value: Boolean): Boolean;

$[SysUtils.pas

功能返回字符串S转换成逻辑值Value是否成功

说明[注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正

参考function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var

SysUtils.FalseBoolStrs

مثال

///////Begin TryStrToBool

الإجراء tform1.button1click (المرسل: tobject) ؛

var

B: Boolean;

يبدأ

SetLength(TrueBoolStrs, 2);

SetLength(FalseBoolStrs, 2);

TrueBoolStrs[0] := 'True';

FalseBoolStrs[0] := 'False';

TrueBoolStrs[1] := 'Yes';

FalseBoolStrs[1] := 'No';

CheckBox1.Checked := TryStrToBool(Edit1.Text, B);

CheckBox2.Checked := B;

نهاية؛

///////End TryStrToBool

مُرفَق

///////Begin TryStrToBool

function TryStrToBool(const S: string; out Value: Boolean): Boolean;

function CompareWith(const aArray: array of string): Boolean;

var

I: Integer;

يبدأ

Result := False;

for I := Low(aArray) to High(aArray) do

if AnsiSameText(S, aArray[I]) then

يبدأ

Result := True;

استراحة؛

نهاية؛

نهاية؛

var

LResult: Extended;

يبدأ

Result := TryStrToFloat(S, LResult);

if Result then

Value := LResult <> 0

آخر

يبدأ

Result := True; //修正处

VerifyBoolStrArray;

if CompareWith(TrueBoolStrs) then

Value := True

else if CompareWith(FalseBoolStrs) then

Value := False

آخر

Result := False;

نهاية؛

نهاية؛

///////End TryStrToBool

━━━━━━━━━━━━━━━━━━━━━

首部function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;

$[SysUtils.pas

功能返回逻辑值B转换成字符串

说明BoolToStr(False, False)='0';BoolToStr(False, True)='-1'

参考var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs

例子Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);

━━━━━━━━━━━━━━━━━━━━━

首部function LoadStr(Ident: Integer): string; $[SysUtils.pas

功能返回根据标识Ident的字符串资源

说明字符串资源是指程序的内部资源

参考function SysUtils.FindStringResource

例子Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));

━━━━━━━━━━━━━━━━━━━━━

首部function FmtLoadStr(Ident: Integer; const Args: array of const):

string; $[SysUtils.pas

功能返回格式化的字符串资源

说明字符串资源是指程序的内部资源

参考function SysUtils.FmtStr;function SysUtils.FindStringResource

例子<NULL>;

━━━━━━━━━━━━━━━━━━━━━

首部function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas

功能返回指针字符串的长度

说明当指针字符串Str为nil时将触发异常

参考<NULL>

例子SpinEdit2.Value := StrLen(PChar(Edit1.Text));

━━━━━━━━━━━━━━━━━━━━━

首部function StrEnd(const Str: PChar): PChar; $[SysUtils.pas

功能返回指针字符串的结尾

说明当指针字符串Str为nil时将触发异常

参考<NULL>

例子Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;

━━━━━━━━━━━━━━━━━━━━━

首部function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):

PChar; $[SysUtils.pas

功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中

说明Dest没有分配资源将触发异常s

参考function System.Move

مثال

///////Begin StrMove

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: PChar;

يبدأ

vBuffer := '0123456789';

StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);

Edit2.Text := vBuffer;

نهاية؛

///////End StrMove

━━━━━━━━━━━━━━━━━━━━━

首部function StrCopy(Dest: PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中

说明Dest应已经分配足够的空间非则将触发异常

参考<NULL>

مثال

///////Begin StrCopy

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: PChar;

يبدأ

GetMem(vBuffer, Length(Edit1.Text) + 1);

StrCopy(vBuffer, PChar(Edit1.Text));

Edit2.Text := vBuffer;

FreeMem(vBuffer);

نهاية؛

///////End StrCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrECopy(Dest:PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中的结尾

说明可以连接指针字符串

参考<NULL>

مثال

///////Begin StrECopy

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: array[0..255] of Char;

يبدأ

StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));

Edit3.Text := vBuffer;

نهاية؛

///////End StrECopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):

PChar; $[SysUtils.pas

功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中

说明Dest应已经分配足够的空间非则将触发异常

参考<NULL>

مثال

///////Begin StrLCopy

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: array[0..255] of Char;

يبدأ

StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);

Edit2.Text := vBuffer;

نهاية؛

///////End StrLCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrPCopy(Dest: PChar; const Source: string): PChar;

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中

说明StrLCopy(Dest, PChar(Source), Length(Source))

参考function SysUtils.StrLCopy

مثال

///////Begin StrPCopy

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: array[0..255] of Char;

يبدأ

StrPCopy(vBuffer, PChar(Edit1.Text));

Edit2.Text := vBuffer;

نهاية؛

///////End StrPCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrPLCopy(Dest: PChar; const Source: string; MaxLen:

Cardinal): PChar; $[SysUtils.pas

功能返回将字符串Source指定长度MaxLen复制到指针字符串Dest中

说明StrLCopy(Dest, PChar(Source), MaxLen)

参考function SysUtils.StrLCopy

مثال

///////Begin StrPLCopy

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: array[0..255] of Char;

يبدأ

StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);

Edit2.Text := vBuffer;

نهاية؛

///////End StrPLCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrCat(Dest: PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回连接指针字符串Dest和指针字符串Source

说明StrCopy(StrEnd(Dest), Source)

参考function SysUntils.StrCopy

مثال

///////Begin StrCat

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: array[0..255] of Char;

يبدأ

StrPCopy(vBuffer, Edit1.Text);

StrCat(vBuffer, PChar(Edit2.Text));

Edit3.Text := vBuffer;

نهاية؛

///////End StrCat

━━━━━━━━━━━━━━━━━━━━━

首部function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):

PChar; $[SysUtils.pas

功能返回连接指针字符串Dest和指针字符串Source

说明[注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度

参考<NULL>

مثال

///////Begin StrLCat

الإجراء tform1.button1click (المرسل: tobject) ؛

var

vBuffer: array[0..255] of Char;

يبدأ

StrPCopy(vBuffer, Edit1.Text);

StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);

Edit3.Text := vBuffer;

نهاية؛

///////End StrLCat

━━━━━━━━━━━━━━━━━━━━━

首部function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas

功能返回比较两个指针字符串

说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异

参考<NULL>

例子SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));

━━━━━━━━━━━━━━━━━━━━━

首部function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas

功能返回比较两个指针字符串

说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异

参考<NULL>

例子SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));

━━━━━━━━━━━━━━━━━━━━━

首部function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;

$[SysUtils.pas

功能返回比较两个指针字符串指定长度

说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异

参考<NULL>

例子SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text),

SpinEdit2.Value)

━━━━━━━━━━━━━━━━━━━━━

首部function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;

$[SysUtils.pas

功能返回比较两个指针字符串指定长度

说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异

参考<NULL>

例子SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),

SpinEdit2.Value)

━━━━━━━━━━━━━━━━━━━━━

首部function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas

功能返回在指针字符串Str搜索字符Chr第一个出现的地址

说明没有找到则返回空指针

参考<NULL>

例子Edit2.Text := StrScan(PChar(Edit1.Text), '*');

━━━━━━━━━━━━━━━━━━━━━

首部function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas

功能返回在指针字符串Str搜索字符Chr最后一个出现的地址

说明没有找到则返回空指针

参考<NULL>

例子Edit2.Text := StrRScan(PChar(Edit1.Text), '*');

━━━━━━━━━━━━━━━━━━━━━

首部function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas

功能返回指针字符串Str2在Str1中第一个出现的地址

说明没有找到则返回空指针;StrPos('12345', '3') = '345'

参考<NULL>

例子Edit3.Text := StrPos(PChar(Edit1.Text), PChar(