Fungsi Explode SMS Gateway Delphi

Fungsi Explode SMS, sesuai denganTUGAS STRUKTUR DATA KELAS SAMI. Read more ... » artinya explode berarti memecah sebuah kalimat menjadi beberapa array, explode ini sangat penting untukCara mengatasi Install DotNet 3.5 Windows 8. Read more ... » digunakan pada saat pembuatan auto reply sms gatewayMenjalankan Gammu Dengan Delphi. Read more ... » dengan delphiPrinsip dasar pembuatan Keylogger. Read more ... », karena dengan adanya explode kitaCara mengatasi Install DotNet 3.5 Windows 8. Read more ... » dapat mengetahui apa tujuan dari SMS masuk.
Mungkin lebih jelasnya gini, misal kita membuat aplikasi SMS Gateway perpustakaan, kemudian user dengan menggunakan HP akan merequest judul buku dengan caraMenjalankan Aplikasi Android di Windows. Read more ... » ” REQ#judulbuku” : untuk mengecek judul buku dan keyword yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » digunakan benar atau tidak? maka harus ada pemecahan isi pesan tersebut menjadi beberapa bagian yakni :
Array[0] : REQ
Array[1]: Judulbuku
Nah Array[0] (REQ) digunakan untuk mengetahui jenis pesan jika REQ maka akan menjalankan request, kemudian Array[1] ini merupakan keyword yang akan digunakan untuk mengecek kedalam tabel buku apakah ada buku dengan judul judulbuku? jika ada maka akan direply. Untuk mencoba, silahkan copas fungsi explode berikut, referensi lupa  :
function explode(cDelimiter,  sValue : string; iCount : integer) : TArray;
var
s : string; i,p : integer;
begin
        s := sValue; i := 0;
        while length(s) > 0 do
        begin
                inc(i);
                SetLength(result, i);
                p := pos(cDelimiter,s);
                if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then
                begin
                        result[i - 1] := copy(s,0,p-1);
                        {updated, thanks Irfan}
                        s := copy(s,p + length(cDelimiter),length(s));
                end else
                begin result[i - 1] := s;
                        s := '';
                end;
        end;
end;

Jangan lupa tambahkan type baru dibawah

type : TArray = array of string;

Untuk penggunaanya cukup simple gini :

var
a: TArray;
begin

  a:= explode('#','isi pesany',0);
  //a[0] hasil pecahan dari array ke [0]
end;

Contoh Program Download disini.

By Burhanudin

Posted in Delphi 7, Programing and tagged , .