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

// قم بتقسيم السلسلة وفقًا للسلسلة ، والتي تعادل وظيفة الانقسام في VB

وظيفة splitstring (مصدر const ، الفصل: سلسلة): tstringlist ؛

var

درجة الحرارة: سلسلة.

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

يبدأ

النتيجة: = tstringList.create ؛

// إذا كانت سلسلة فارغة ، فأعود إلى قائمة فارغة

إذا كان المصدر = ''

ثم الخروج

درجة الحرارة: = المصدر ؛

i: = pos (ch ، source) ؛

بينما أنا <> 0 أفعل

يبدأ

result.add (نسخة (temp ، 0 ، i-1)) ؛

حذف (temp ، 1 ، i) ؛

i: = pos (ch ، temp) ؛

نهاية؛

النتيجة. add (temp) ؛

نهاية؛

www.sinoprise.com