تتولى وظيفة دلفي السلاسل للتأكد

إدراك التأثير

يتم تعيين فاصلة واحدة فقط بعد كل عنصر.

مرور ؛ ABC ؛ 123 ؛ JKL ؛

تمرير في ABC ؛؛ 123 ؛؛ JKL ؛

تمرير في ABC ؛؛ 123 ؛؛ JKL Return ABC ؛ 123 ؛ JKL ؛

وظائف رئيسية

 حذف {الوظيفة الوصف: حذف السلسلة المحددة في السلسلة. هذه الوظيفة لها ثلاث معلمات. المعلمة الأولى هي السلسلة التي يجب معالجتها ، والمعلمة الثانية هي المكان الذي تبدأ فيه الحذف ، والمعلمة الثالثة هي عدد الأحرف التي سيتم حذفها. } leftstr (الوحدة: strutils) {الوصف الوصف: إرجاع الحرف الجديد (السلسلة) المحددة على الجانب الأيسر من السلسلة. هذه الوظيفة لها معلمتين. المعلمة الأولى هي السلسلة الكاملة ، والمعلمة الثانية هي الرقم المحدد. } حقوق (الوحدة: strutils) {الوصف الوصف: إرجاع الحرف الجديد (السلسلة) المحددة على يمين السلسلة. هذه الوظيفة لها معلمتين. المعلمة الأولى هي السلسلة الكاملة ، والمعلمة الثانية هي الرقم المحدد. } pos {وصف الوظيفة: أوجد موقع الحرف (السلسلة). هذه الوظيفة لها معلمتين. المعلمة الأولى هي الحرف (السلسلة) التي يتم تفتيشها ، والمعلمة الثانية هي الحرف (السلسلة) المراد البحث عنها. }
 الكود: // يستخدم المطلوب
 وحدة Strutils
 دالة Dealster (S: String) = '' ؛ ('، s1) '؛' ؛ S1: = Righttr (S1 ، (S1) -POS ('؛' ، S1)) ؛ اليسار (S3 = '؛') إذا كانت السلسلة الموجودة على اليسار تحتوي فقط على Semicolon حقوق (S1) (S1) -POS ('؛' ، S1)) ؛