ตระหนักถึงผลกระทบ
มีเซมิโคลอนเพียงหนึ่งตัวเท่านั้นที่ได้รับมอบหมายหลังจากแต่ละรายการ
ผ่าน; ABC; 123; JKL; return ABC; 123; JKL;
ผ่าน ABC ;;; 123 ;; jkl;
ผ่าน ABC ;;; 123 ;; jkl return abc; 123; jkl;
ฟังก์ชั่นหลัก
ลบ {ฟังก์ชั่นคำอธิบาย: ลบสตริงที่ระบุในสตริง ฟังก์ชั่นนี้มีพารามิเตอร์สามตัว พารามิเตอร์แรกคือสตริงที่จะประมวลผลพารามิเตอร์ที่สองคือจุดที่จะเริ่มการลบและพารามิเตอร์ที่สามคือจำนวนอักขระที่จะลบ } leftstr (หน่วย: strutils) {ฟังก์ชั่นคำอธิบาย: ส่งคืนอักขระใหม่ (สตริง) ที่ระบุที่ด้านซ้ายของสตริง ฟังก์ชั่นนี้มีพารามิเตอร์สองตัว พารามิเตอร์แรกคือสตริงที่สมบูรณ์และพารามิเตอร์ที่สองคือหมายเลขที่ระบุ } rightStr (หน่วย: strutils) {ฟังก์ชั่นคำอธิบาย: ส่งคืนอักขระใหม่ (สตริง) ที่ระบุทางด้านขวาของสตริง ฟังก์ชั่นนี้มีพารามิเตอร์สองตัว พารามิเตอร์แรกคือสตริงที่สมบูรณ์และพารามิเตอร์ที่สองคือหมายเลขที่ระบุ } pos {ฟังก์ชั่นคำอธิบาย: ค้นหาตำแหน่งของอักขระ (สตริง) ฟังก์ชั่นนี้มีพารามิเตอร์สองตัว พารามิเตอร์แรกคืออักขระ (สตริง) ที่จะค้นหาและพารามิเตอร์ที่สองคืออักขระ (สตริง) ที่จะค้นหา - รหัส: // ใช้ต้องการ
หน่วย strutils function dealster (s: string): string; var s2, s3: string; var s1: widestrng; = ''; (', S1), 1); ';'; S1: = Rightstr (S1, (ความยาว (S1) -POS (';', S1)); ซ้ายถ้า (s3 = ';') // ถ้าสตริงด้านซ้ายมีเพียงเครื่องหมายอัฒภาค, ทิ้งเริ่มต้นอื่น ๆ เริ่มต้น S2: = S2+S3; Rightstr (S1, (S1) -POS (';', S1));