Menyadari efeknya
Hanya satu titik koma yang ditugaskan setelah setiap item.
Lulus; ABC; 123; JKL;
Lulus di ABC ;;; 123 ;; JKL;
Lulus di ABC ;;; 123 ;; JKL Return ABC; 123; JKL;
Fungsi utama
Hapus {Function Deskripsi: Hapus string yang ditentukan dalam string. Fungsi ini memiliki tiga parameter. Parameter pertama adalah string yang akan diproses, parameter kedua adalah tempat untuk memulai penghapusan, dan parameter ketiga adalah jumlah karakter yang akan dihapus. } Leftstr (unit: strutils) {Fungsi Deskripsi: Mengembalikan karakter baru (string) yang ditentukan di sisi kiri string. Fungsi ini memiliki dua parameter. Parameter pertama adalah string lengkap, dan parameter kedua adalah nomor yang ditentukan. } Rightstr (unit: strutils) {Fungsi Deskripsi: Mengembalikan karakter baru (string) yang ditentukan di sebelah kanan string. Fungsi ini memiliki dua parameter. Parameter pertama adalah string lengkap, dan parameter kedua adalah nomor yang ditentukan. } POS {Fungsi Deskripsi: Temukan lokasi karakter (string). Fungsi ini memiliki dua parameter. Parameter pertama adalah karakter (string) yang akan dicari, dan parameter kedua adalah karakter (string) yang akan dicari. } Kode: // Penggunaan yang Diperlukan
Unit Strutils Function Dealstr (S: String): String; Var S2, S3: String; Var S1: Widestrng; = ''; (', S1), 1); ';'; S1: = Kanan (S1, (Panjang (S1) -Pos (';', S1)))); Jika (S3 = ';') lalu // jika string di sebelah kiri hanya memiliki titik koma, buang akhir yang lain mulai S2: = S2+S3; Rightstr (S1, (S1) -Pos (';', S1)));