// Pisahkan string sesuai dengan string, yang setara dengan fungsi split di VB
function splitstring (sumber const, ch: string): tStringlist;
var
Temp: String;
I: Integer;
Mulai
Hasil: = TStringList.Create;
// Jika itu adalah string kosong, kembali ke daftar kosong
Jika sumber = ''
lalu keluar;
Temp: = Sumber;
i: = pos (ch, sumber);
sementara saya <> 0 lakukan
Mulai
Result.add (salin (temp, 0, i-1));
Hapus (temp, 1, i);
i: = pos (ch, temp);
akhir;
Result.add (temp);
akhir;
www.sinoprise.com