Delphi :: Split String

Akhirnya ketemu juga cara untuk melakukan split string. (Terbiasa pakai PHP sih, yang sangat memanjakan dalam pengelolaan string.) Di sini memanfaatkan TStringList, unit Classes.

// procedure untuk split string
procedure Split
(const Delimiter: Char; // delimiter charachter
 Input: string;         // input string
 const Strings: TStrings) ; // list of string result
begin
Assert(Assigned(Strings)) ;
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;

// contoh pemakaian
procedure TForm1.Button1Click(Sender: TObject) ;
var
A: TStringList;
begin
A := TStringList.Create;
try
  Split(' ', 'your delphi guide', A) ;
  ShowMessage(a[0]) ; //your
  ShowMessage(a[1]) ; //delphi
  ShowMessage(a[2]) ; //guide
finally
  A.Free;
end;
end;

Source : http://delphi.about.com/cs/adptips2002/a/bltip1102_5.htm
Wheew .. akhirnya. One step ahead!!