Arsip: Fungsi Split

 
user image
more 15 years ago

coolmib

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
user image
more 15 years ago

deLogic

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;
user image
more 15 years ago

coolmib

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:
user image
more 15 years ago

deLogic

gak masalah mau di depan atau dibelakang, kalo di depan, berarti array / list index 0 tidak ada isinya..
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com