Contoh dalam artikel ini menjelaskan penggunaan fungsi pemisahan string Delphi. Bagikan dengan semua orang untuk referensi Anda. Metode implementasi spesifiknya adalah sebagai berikut:
Contoh ini dapat memisahkan string s menjadi beberapa string sesuai dengan representasi string Separator dan menyimpannya dalam daftar string rs. Kode spesifiknya adalah sebagai berikut:
Salin kode sebagai berikut: procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: tali;
idx: Bilangan bulat;
ASubStr: rangkaian;
mulai
AStr := Pangkas;
sedangkan Pos(Pemisah, AStr) > 0 lakukan
mulai
idx := Pos(Pemisah, AStr);
ASubStr := Salin(AStr, 1, idx - 1);
rs.Tambahkan(ASubStr);
AStr := Salin(AStr, idx + 1, Panjang(AStr));
akhir;
if AStr+'a' <> 'a' lalu rs.Add(AStr); //Jika ada string yang tersisa, simpan di daftar string
akhir;
Saya harap artikel ini bermanfaat untuk pemrograman Delphi semua orang.