Friday, 7 April 2017T4/07/2017 10:34:00 pm

CARA MEMISAHKAN KARAKTER TEXT ATAU STRING DI DELPHI

Salam blogger…..pada kesempata kali ini saya akan share cara mudah memisahkan kata / string di Delphi. Istiah pecah string / pisah kata di pemprograman Delphi biasa nya dikenal dengan istilah split. Teknik split string ini biasanya digunakan pada sebuah aplikasi yang berbasis SMS gateway, jadi fungsi split string ini biasanya digunakan untuk format pada sms. Contohnya “Nama#Umur#JenisKelamin#TglLahir”. Tentunya pada aplikasi berbais sms kita sering menemukan format seperti ini yang dikirim oleh operator.

Nah pada kesempatan kali ini saya akan menjelaskan cara dasar dalam penggunaan fungsi string di program Delphi, disini saya akan mencoba membuat program untuk memisahkan kata sesuai dengan spasi yang kita inputkan. Caranya akan saya jelaskan pada langkah langkah berikut ini.

Langkah – langkahnya adalah sebagai berikut :

1. Pertama tama buat sebuah project baru di Delphi sobat. Sobat dapat menggunkan Delphi versi apa saja, disini saya menggunakan Delphi XE 8. Lalu pada form nya design tampilannya seperti pada gambar di bawah ini.

2. Adapun komponen yang saya gunakan pada form diatas adalah

  • 1 buah edit text
  • 2 buah button
  • 1 buah listbox

3. Pada edit text kosongkan text nya
4. Lalu pada 2 buah button nya ubah caption nya menjadi “Split” dan “clear”
5. Selanjutnya pada listbox ubah enable nya menjadi false
6. Langkah selanjutnya adalah tekan F12 lalu tambahkan procedure berikut tepat dibawah private. (lihat gambar dibawah ini) 

procedure Split(aValue : string; aDelimiter : Char; Result : TStrings);

7. Jika sudah lalu tekan Shift + Ctrl + C , lalu masukan kode program berikut pada procedure yang sudah di buat sebelumnya

procedure TForm1.Split(aValue: string; aDelimiter: Char; Result: TStrings);
var
  X : Integer;
  S : string;
begin
  if Result = nil then Result := TStringList.Create;
  Result.Clear;
  S := '';
  for X:=1 to Length(aValue) do begin
    if aValue[X] <> aDelimiter then
      S:=S + aValue[X]
    else begin
      Result.Add(S);
      S := '';
    end;
  end;
  if S <> '' then Result.Add(S);
end;

8. Jika sudah lalu klik 2x pada button Split dan masukan kode program berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
Split (Edit1.Text, ' ', ListBox1.Items);
end;

9. Lalu klik 2x pada button Clear dan masukan kode program berikut :

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
listbox1.Items.Clear;
edit1.SetFocus;
end;

Sampai disini proses pembuatan program sudah selesai, maka selanjutnya sobat tinggal menjalankan hasil program nya dengan cara menekan F9/RUN. lalu inputkan text yang ingin sobat coba, lalu klik button split dan lihat hasilnya. jika program dijalankan maka hasilnya akan tampak pada gambar dibawah ini.
Demikian postingan saya kali ini tentang cara memisahkan string / text di program Delphi yang dapat saya share kali ini, karena ini hanya tutorial dasar fungsi splite jadi sobat bisa menambahkan program ini sesuai dengan fungsi dan kreasi sobat sendiri, semoga dapat bermanfaat buat sobat semua dan selamat mencoba. 
Previous
Next Post »
0 Komentar untuk "CARA MEMISAHKAN KARAKTER TEXT ATAU STRING DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status