Membalik Karakter Dengan Delphi

DELPHI, UBAHSEGALANYA.BLOGSPOT.CO.ID - Urutan karakter pada string dapat kita ubah posisinya dengan menggunakan fungsi ReverseString.

Function ReverseString (s : String) : String;

Fungsi ReverseString hanya membutuhkan sebuah parameter. Yaitu string yang akan dibalik urutan karakternya. Nilai balik dari fungsi ReverseString adalah string yang urutan berhasil di balik. Untuk membuat program di atas, ikuti langkah – langkah berikut :

- Buka Delphi

- Buat project baru

- Tambahkan komponen – komponen dibawah ini kedalam lebar project

No	Nama Komponen	Nama Palette	Jumlah
1	TEdit	Standard	2
2	TButton	Standard	1

- Setting komponen seperti dibawah ini :

No	Nama Komponen	Nama Properties	Value
1	Edit1	Font->Size Name Text	12 edtKarakter -
2	Button1	Caption Name	Balik btnBalik
3	Edit2	Font->Size Name Text	12 edtHasil -
4	Form1	BorderStyle BorderIcons->biMaximize Name Position	bsSingle False frmBalikKarakter poScreenCenter

- Buat function, dibawah kode ini :

implementation

{$R *.dfm}

function ReverseString(s : string) : string;

var

i : Integer;

s2 : string;

begin

s2 := '';

for I := 1 to Length(s) do

 begin

    s2 := s[i]+s2;

 end;

 Result:=s2;

end;

- Klik dua kali btnBuka lalu isikan kode berikut ini :

procedure TForm1.btnBalikClick(Sender: TObject);

begin

if Trim(edtKarakter.Text)<> '' then

edtHasil.Text := ReverseString(edtKarakter.Text);

end;

- Tekan tombol F9/Compile

- Selesai, selamat mencoba

Membalik Karakter Dengan Delphi 2014-09-09T04:58:00-07:00 Rating: 4.5 Diposkan Oleh: Abu Masail