Manipulasi String dengan Delphi #15

andrypein.net : kali ini kita akan mempelajari tentang fungsi-fungsi string pada delphi dimana kita akan memakai fungsi-fungsi yang standard dahulu dan akan amat sangat mudah banget untuk dimengerti.

Manipulasi string ini secara singkat dipakai untuk mengolah string atau karakter sesuai fungsi delphi yang sudah di sediakan.

Sekarang kita mulai saja wokeeh lets biasa kita buka dahulu delphi kalian.

bentuk formnya seperti gambar dibawah ini :

lanjut dengan manipulasi string dengan delphi

dimana ada 8 buah komponen edit text dan 2 buah button.

ini mudah ko dan nanti saya akan jelaskan maksud dari kode2 dari fungsi-fungsi stringnya.

sebelumnya tambahkan uses baru di code editor dengan nama uses StrUtils

sehingga kalo dipanjangin jadi kaya seperti ini usesnya

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StrUtils, StdCtrls;

nah yang cetak tebal adalah yang mesti ditambahkan.

lalu klik ganda pada button1 dan ketikan rumusnya seperti ini :

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:=edit1.Text;
 edit2.Text:=lowercase(s);
 edit3.Text:=uppercase(s);
 edit4.Text:=reversestring(s);
 edit5.Text:=leftstr(s,2);
 edit6.Text:=rightstr(s,3);
 edit7.Text:=midstr(s,4,3);
 edit8.Text:=inttostr(length(s));
end;

dan pada button2 kodenya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 edit7.Text:='';
 edit8.Text:='';
 edit1.setfocus;
end;

lalu coba di compile dan di run.

hasilnya seperti gambar dibawah ini :

Berikut Penjelasannya

variabel s dengan tipe data string kita tempatkan pada edit1.text

saat tombol dipencet —

edit2.Text:=lowercase(s);

yang ini artinya kita meng lowercase kan edit1.text yang ditampilkan pada edit2.text

 

edit3.Text:=uppercase(s);

yang ini artinya membuat uppercase edit1.text yang ditampilkan pada edit3.text

 

edit4.Text:=reversestring(s);

ini untuk mereverse string atau membalikan kata.

 

edit5.Text:=leftstr(s,2);

untuk yg ini artinya kita mengambil 2 karakter sebelah kiri

 

edit6.Text:=rightstr(s,3);

ini mengambil 3 karakter dari sebelah kanan

 

edit7.Text:=midstr(s,4,3);

dan ini adalah memulai 4 karakter dari kiri dan menampilkannya sebanyak 3 karakter

 

edit8.Text:=inttostr(length(s));

kalau ini untuk menghitung berapa jumlah atau panjang string yang diinputkan

 

oke dah sekian saja artikel manipulasi string dengan delphi, semoga bermanfaat.

(*AFK)