Explode String on Delphi

Unknown   12:40:00 AM   Coding, Delphi, script   Comment  

Yoooooooooo sobat BeInyu.com, saya penulis baru di sini.
Mungkin bagi beberapa orang yang terbiasa dengan coding menggunakan PHP maka tidak asing lagi dengan fungsi explode
Secara bodohnya fungsi explode adalah fungsi untuk memecah string menggunakan delimeter/batas yang ditentukan menjadi variabel array.

Contohnya jika di PHP:

<?php
$StringKu = "PHP,Java,Python,Ruby,C++,Delphi,Perl";
$pecah = explode( ",",$StringKu);

echo $pecah[0]."<br>"; // PHP
echo $pecah[1]."<br>"; //Java
echo $pecah[2]."<br>"; //Python
echo $pecah[3]."<br>"; //Ruby
echo $pecah[4]."<br>"; //C++
echo $pecah[5]."<br>"; //Delphi
echo $pecah[6]."<br>"; //Perl

?>

Yup, seperti yang dilihat fungsi explode sangat berguna kan. Sekarang mari kita lihat implementasinya ke Delphi.

function explode(delimiter: String; sString: String):TStringList;
var
 c: word;
begin
  Result:=TStringList.Create;
  c:=0;
  while sString <> '' do begin
    if Pos(delimiter, sString) > 0
    then begin
      Result.Add(Copy(sString, 1, Pos(delimiter, sString)-1));
      Delete(sString, 1,Length(Result[c])+Length(delimiter));
    end
    else begin
      Result.Add(sString);
      sString:= '';
    end;
      inc(c);
  end;
end;

Untuk pemanggilannya dalam procedure kira2 seperti ini

procedure TForm1.Button1Click(Sender: TObject);
const
  StringKu = 'PHP,Java,Python,Ruby,C++,Delphi,Perl';
begin
  Memo1.Lines:=explode(',', StringKu);
//jika ingin mengambil hanya satu variabel, maka tambahkan indexnya
//misal hanya ingin mengambil kata Ruby
//maka explode(',', StringKu)[3]
//mengapa indexnya 3? dan bukan 4, karena TStringList berIndex array dan dimulai dari 0
end;

untuk penampakannya kira2 seperti ini

Form

Gimana? Sungguh berguna bukan.
Dari pengalaman sih fungsi ini sering saya pakai untuk webspider dan mengekstrak string.
Mohon maaf jika ada salah kata atau pengetikan di dalam postingan ini. sekian dan terima kasih...
Salam Adhe K