Kamis, 14 April 2011

String Manipulation

kali ini kita akan mempelajari tentang fungsi-fungsi string pada delphi :$ :D
dimana kita akan memakai fungsi-fungsi yang standard dahulu dan akan amat sangat banget untuk dimengerti :o...
lets sekarang kita mulai saja wokeeh :$
lets biasa kita buka dahulu delphi kalian...

bentuk formnya seperti gambar dibawah ini :D

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..... :D
sebelumnya tambahkan uses baru di code editor dengan nama uses StrUtils
sehingga kalo dipanjangin jadi kaya gini nih usesnya
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StrUtils, StdCtrls;
nah yang cetak tebal adalah yang mesti ditambahkan.
sudah dibuatkah formnya dan lain2nya?
kalo sudah klik ganda pada button1 dan ketikan rumusnya kaya gene nih

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;

coba deh oleh rekan sekalian compile dan run!!
mesti dan harus berhasil dehhh...
seperti kaya gambar ini misal :$

saya akan jelaskan oke
variabel s dengan tipe data string kita tempatkan pada edit1.text
saat tombol dipencet kan rumusnya kaya gini kan?
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 ya artinya tau sendiri lah pasti hehehehe
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));
kalao ini untuk menghitung berapa jumlah atau panjang string yang diinputkan
oke dah sekian saja dahulu ya semoga bermanfaat oke :D :D

2 komentar: