Halo semua.... mau minta trik nih... di VB ada function namanya Split kira2 begini cara kerjanya :

Variable
--------
tampung1,tampung2 = array dynamic
S1 = '\xAA\x00\x03\x1F\x0A\x44'
S2 = '56;4;8;9;74'

Proses 
--------
tampung1 = split(S1,'\x')
tampung2 = split(S2,';')

result
--------
tampung1[1]='AA'
tampung1[2]='00'
tampung1[3]='03'
tampung1[4]='1F'
tampung1[5]='0A'
tampung1[6]='44'
tampung2[1]='56'
tampung2[2]='4'
tampung2[3]='8'
tampung2[4]='9'
tampung2[5]='74'

Nah...kira2 di delphi ada gak command yg mirip2 cara kerjanya

split, kalo delimiter character nya hanya satu, misal '; 'atau ',' itu gampang, bisa pake kelas TStrings. Isikan property Delimiter dengan karakter pemisah. Dalam kasus Anda, karakter pemisah '\x' adalah karakter khusus, maka Anda harus cari terlebih dahulu terjemahannya dalam kode ASCII. kalo \x berarti pindah baris, maka ASCII Code nya#13 contoh:

var
  SList1 : TStrings;
  Index  : Integer;
  Count  : Integer;
begin
  SList1 := TStringList.Create;
//  SList1.Delimiter :=#13;
//  SList1.DelimitedText := 'AA' +#13+ '00' +#13+ '03' +#13+ '1F' +#13+ '0A' +#13+ '44';
  SList1.Delimiter := ';';
  SList1.DelimitedText := '56;4;8;9;74';
  Count := SList1.Count;
  for Index := 0 to Count - 1 do
    ShowMessage('SList1 : ' + SLIst1.Strings[Index]);
  SList1.Free;
end;

ada satu hal yg kurang anda perhatikan... u/ string '\xAA\x00\x03\x1F\x0A\x44' , delimiternya ada di depan :) itulah sebabnya saya mau ada fungsi yg bisa handle baik delimiternya di depan maupun belakang. Delimiternya bisa 1 atau lebih. terus bisa lsg ditampung oleh 1 variable array dinamic. Cukup menantang bukan?? :D Anyway Thanks atas TStringnya.. (dapat ide baru nih) :lol:

gak masalah mau di depan atau dibelakang, kalo di depan, berarti array / list index 0 tidak ada isinya..