STRING MANIPULATION MIDSTR

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...

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 - 

sumber: http://andry-pein.blogspot.com/2010/04/string-manipulation.html#sthash.HX6DekAw.dpuf