Hallo semua!! Udah lama nih ngga posting tutorial… Maklum, kebanyakan ngerjain tugas-tugas perkuliahan. Nah sekarang saatnya membuat tulisan lagi…

Bagi yang pernah menggunakan bahasa pemrograman PHP pasti kenal dengan salah satu fungsi yang sangat powerfull yaitu EXPLODE. Sebagaimana kita tahu, fungsi ini berguna untuk meng-eksplode (memecah) suatu string ke dalam beberapa substring dengan pemisah yang ditentukan oleh kita. Nah, say terfikir apakah ada fungsi serupa di DELPHI??

Saya baru menemukannya pagi ini. Ternyata Delphi menyediakan fungsi yang bernama ExtractStrings. Dari Help-nya Delphi, kita bisa tahu kalau kegunaan fungsi ini adalah Fills a string list with substrings parsed from a delimited list. Fungsi ini ada di unit Classes yang secara default ditambahkan ketika kita membuat sebuah form. Jadi, kita bisa langsung memakainya.

Syntax-nya sebagai berikut:

ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Agar lebih jelas, bisa membaca deskripsi dari fungsi ini :
Description

Use ExtractStrings to fill a string list with the substrings of the null-terminated string specified by Content.

Separators is a set of characters that are used as delimiters, separating the substrings. Carriage returns, newline characters, and quote characters (single or double) are always treated as separators. Separators are ignored when inside a quoted string until the final end quote. (Note that quoted characters can appear in a quoted string if the quote character is doubled.)

WhiteSpace is a set of characters to be ignored when parsing Content if they occur at the beginning of a string.

Content is the null-terminated string to parse into substrings.

Strings is a string list to which all substrings parsed from Content are added. The string list is not cleared by ExtractStrings, so any strings already in the string list are preserved.

ExtractStrings returns the number of strings added to the Strings parameter.

Note:    ExtractStrings does not add empty strings to the list.

Oke deh, sekarang tiba saatnya bagaimana cara menggunakannya. Yang pertama kali perlu di perhatikan adalah bahwa string hasil extraksi disimpan kedalam variabel bertype TString. Jadi, Anda bisa menyimpannya ke dalam sebuah ListBox, atau sebarang variabel dengan tipe yang sama.

Misalkan saya mempunyai sebuah form dengan komponen Edit1, ListBox1, dan Button1. Komponen Edit digunakan sebagai input string yang akan di-eksplode, ListBox digunakan untuk menyimpan hasil-nya. Berikut ini adalah contoh kode program saat Button1 di click, dan misalkan pula separator yang digunakan adalah ‘,’.


procedure TForm1.Button1Click(Sender: TObject);
var
n : byte;
begin
ListBox1.Items.Clear;
n := ExtractStrings([','],[' '],PChar(Edit1.Text),ListBox1.Items);
ShowMessage('String telah di eksplode kedalam '+IntToStr(n)+' substring');
end;


Berikut ini adalah salah satu contoh tampilannya:

explode

OK, semoga bermanfaat!