Untuk memecah variabel string berdasar delimiter ke dalam variabel array kita dapat melakukanya dengan mudah di PHP. tetapi di Pascal, kita harus mengutak atik sendiri.
misalkan
variable a=1,3,5,2,4
kalo di explode tanda koma pake (,) akan menjadi :
b[0] = 1
b[1] = 2
b[2] = 3
b[3] = 4
b[4] = 5
|
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
berikut ini fungsi explode di Pascal function Explode(const str: string; const separator: string): TStrings; var n: integer; p, q, s: PChar; item: string; begin Result := TStringList.Create; try p := PChar(str); s := PChar(separator); n := Length(separator); repeat q := StrPos(p, s); if q = nil then q := StrScan(p, #0); SetString(item, p, q - p); Result.Add(item); p := q + n; until q^ = #0; except item := ''; Result.Free; raise; end; end; |
membaca seluruh blog, cukup bagus
terimakasih, atas kunjungannya..