Mas2 delphi, mo nanya nih. Kalau fungsi untuk parsing string gimana ya ? Misalnya client ngirim string 'Konek#IP Address#Username'). Untuk ngambil string 'Konek', 'IP Address', 'Username'. Trims...

Wah, wah, tararengkyu mas cyber_hecker. Ternyata pake TStringList yah, whew, dulu kirain harus masukin Lengt(String) gitu dah ... kekekeke. By the way, bisa nih, belajar hacking sama mas cyber_hecker, hehehe. Hacking pake Delphi (bisa ga ya ???)

udah gw coba, tapi koq hasilnya jadi gini di dapat 4 field, harusnya cmn 3: konek IP Address User IP Address jadi terpisah...kekekekk

@tox2wow: ...pake TStringList yah, whew, dulu kirain harus masukin Lengt(String)

gak sepenuhnya salah, koq lebih mudah memang pake object/method tapi (biasanya) lebih efisien manual (dalam kasus ini: pake posEx, misalnya. atau operasi PChar) selalu ada perseteruan antar speed vs. convenience

Mas bisa ga elemen TStringlist itu diubah jadi nilai integer? saya ikutin sintaks mas cyber_hacker seperti ini dan menghasilkan error... procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings) ; begin Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; procedure TForm1.Button1Click(Sender: TObject) ; var A: TStringList; i:integer; x: array of Integer; begin A := TStringList.Create; try Split(',', '1,2,3,4,5,6,7,8', A) ; for i:=0 to 7 do ShowMessage(A[i]) ; x[i]:=StrToInt(A[i]); //ini yang buat error... finally A.Free; end; end; adakah jalan keluar untuk ini?? tolong bantuannya??

x[i]:=StrToInt(A[i]); //ini yang buat error...

panjang x dah di set lom??

   SetLength(x, 8);

kok hasil nya anech.....ulangi ach.... SetLength(x, 0);

iya itu berhasil... Thanks Mas_Kofa.. Klo ada yang lain perlu untuk tujuan apapun ini sharing code programnya (Pertama kali oleh CYBER_HACKER)... tujuanya sih misalnya untuk mengkonversi vektor ciri dalam database (bentuk varchar) kembali ke bentuk array.. semoga bermanfaat... //diperlukan tform 1 dan button 1 procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings) ; begin Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; procedure TForm1.Button1Click(Sender: TObject) ; var A: TStringList; i:integer; x: array of Integer; begin A := TStringList.Create; try Split(',', '1,2,3,4,5,6,7,8', A) ; //Fungsi pemotongan for i:=0 to 7 do ShowMessage(IntToStr(StrToInt(A[i]))) ; //menguji hasil pemotongan string A SetLength(x,8); //set panjang array x for i:=0 to 7 do x[i]:=StrToInt(A[i]); //memasukkan masing masing nilai Caption:=IntToStr(x[0]); //menguji apakah elemen array sudah terisi finally A.Free; end; end;