مثال على استخدام وظيفة محدد سلسلة دلفي

يصف المثال الموجود في هذه المقالة استخدام وظيفة فصل سلسلة دلفي. شاركها مع الجميع لتكون مرجعا لك. طريقة التنفيذ المحددة هي كما يلي:

يمكن لهذا المثال فصل السلسلة s إلى عدة سلاسل وفقًا لتمثيل فاصل السلسلة وتخزينها في قائمة سلسلة rs، ويكون الكود المحدد كما يلي:

انسخ الكود كما يلي: الإجراء SeparateTerms2(s:string;Separator:string;var rs:TSTringList);

فار

أستر: سلسلة؛

معرف: عدد صحيح؛

ASubStr: سلسلة؛

يبدأ

AStr := القطع(القطع);

بينما Pos(Separator, AStr) > 0 افعل

يبدأ

idx := Pos(Separator, AStr);

ASubStr := Copy(AStr, 1, idx - 1);

rs.Add(ASubStr);

AStr := Copy(AStr, idx + 1, Length(AStr));

نهاية؛

if AStr+'a' <> 'a' ثم rs.Add(AStr); // إذا كانت هناك سلاسل متبقية، قم بتخزينها في قائمة السلاسل

نهاية؛

آمل أن تكون هذه المقالة مفيدة لبرمجة دلفي للجميع.