ILMU PERAKTEK

Operator String
7.1. Menggabungkan String

menggabungkan string adalah proses merangkai dua karakter atau lebih menjadi satu kalimat atau kata yang baru. Operator string yang dikenal dalam Bahasa Delphi adalah operator dengan symbol ‘+’.

a. Model Penulisan

var
nama : string[20];
saya : string[15];
namasaya : string[50];
Begin
Nama := ‘Nama Saya adalah = ‘;
Saya : = ‘Irnawan’;
Namasaya : = ‘nama+’ ‘+saya;
Ehasil.text : = namasaya;
End.

b. Contoh Program

Hasil yang Diperoleh



Gambar 7.1 Form Penggabungan String
Desain Form



Gambar 7.2 Desain Form Penggabungan String

Desain Properties

Object Caption/Text Name
Label 1 Nama Depan Label1
Label 2 Nama Tengah Label2
Label 3 Nama Akhir Label3
Label 4 Nama Lengkap Label4
Edit1 - Edepan
Edit2 - Etengah
Edit3 - Eakhir
Edit4 - Egabung
Button1 Gabung bgabung


Listing Program

procedure TForm13.bgabungClick(Sender: TObject);
var
depan : string[20];
tengah : string[20];
akhir : string[20];
gabung : string[80];
begin
depan := edepan.Text ;
tengah := etengah.Text;
akhir := eakhir.Text;
gabung := depan+' '+tengah+' '+akhir;
elengkap.Text := gabung;
end;




7.2. Menghapus Teks

Prosedur standart ini digunakan untuk menghapus atau mengurangi sebagian atau seluruh karakter terhadap string atau teks.

Bentuk umum penulisan

Delete(teks, index, jumlah)

Delete adalah prosedur standart yang digunakan untuk menghapus teks. Teks merupakan kalimat atau string yang akan dihapau, Index menunjukan posisi awal yang akan dihapus. Jumlah menunjukan jumlah karakter yang akan dihapus.

a. Hasil Setelah Form Dijalankan



Gambar 7.3 Form Hapus teks

b. Desain Form



Gambar 7.4 Desain Form Hapus teks



c. Desain Properties

Object Caption/Text Name
Label 1 Nama Anda Label1
Label 2 Ketikan urutan mulai penghapusan Label2
Label 3 Jumlah Karakter yang dihapus Label3
Label 4 Nama Sesudah dihapus Label4
Edit1 - Enama
Edit2 - Eurut
Edit3 - Ejumlah
Edit4 - Ehasil
Button1 OK bOK
Button2 Close Bclose
Group Box 1 Rincian Nama Yang Ingin Dihapus Group box 1


d. Listing Program

Program untuk eksekusi perintah penghapusan teks.

procedure TForm9.bokClick(Sender: TObject);
var
karakter:string;
pos,jumlah:integer;
begin
karakter:= enama.Text;
pos := strtoint(eurut.Text);
jumlah := strtoint(ejumlah.Text);
Delete(karakter,pos,jumlah);
ehasil.Text := karakter;
end;

Program untuk keluar dari form

procedure TForm9.bcloseClick(Sender: TObject);
begin
close;
end;

7.3. Mencari Panjang teks (length)

fungsi ini digunakan untuk menghitung panjang atau jumlah karakter dari suatu teks atau kalimat. Dalam menghitung jumlah karakter dalam suatu teks spasi akan dibaca sebagai satu karakter. Sebagai catatan hasil yang diperoleh dari perhitungan adalah bilangan bulat positif.

Bentuk Umum

Length(teks)

Contoh

a. Hasil setelah form dijalankan



Gambar 7.5 Hasil Form Panjang String


a. Desain Form



Gambar 7.6 Desain Form Panjang String

b. Desain properties

Object Caption/Text Name
Label 1 Operasi Standart Length Label1
Label 2 Nama Anda Label2
Label 3 Panjang Karakter dari Nama Anda Label3
Edit1 - Enama
Edit2 - Ehasil
Button1 OK bOK
Button2 Close Bclose

e. Listing Program

Program untuk meneksekusi pencarian panjang karakter

procedure TForm8.bokClick(Sender: TObject);
var
nama:string;
begin
nama := enama.Text ;
ehasil.Text := inttostr(length(nama));
end;

Program Untuk menutup Form

procedure TForm8.bcloseClick(Sender: TObject);
begin
close;
end;

7.4. Mencari Karakter Pada Teks (POS)

Fungsi ini digunakan untuk mencari letak atau posisi dari suatu karakter dari suatu nilai string. Nilai yang dihasilkan adalah berupa byte.

Bentuk umum

Pos(sustr, string);

Contoh

a. Hasil setelah dijalankan



Gambar 7.7 Hasil Form Pencarian Huruf

b. Desain Form


Gambar 7.8 Desain Form Pencarian Huruf

c. Desain Properties

Object Caption/Text Name
Label 1 Operasi Standart Pos Label1
Label 2 Kata Awal Label2
Label 3 Huruf yang Dicari Label3
Label4 Huruf tersebut ada diposisi ke ……
Edit1 - eawal
Edit2 - ecar
Edit3 - ehasil
Button1 OK bOK
Button2 Close Bclose


d. Listing Program

Program untuk eksekusi perintah pencarian

procedure TForm7.bokClick(Sender: TObject);
var karakter : string;
kar : string;
hasil : integer;
begin
karakter:= eawal.Text;
kar:= ecari.Text;
hasil := pos(kar,karakter);
ehasil.Text := inttostr(hasil);
end;




Program Untuk menutup Form

procedure TForm7.bcloseClick(Sender: TObject);
begin
close;
end;
end.

7.5. Mengkopi String (Copy)

Fungsi ini digunakan untuk mencetak ulang string atau karakter sebanyak huruf yang dipilih dengan posisi karakter awal yang sudah ditentukan.

Bentuk Umum

Copy(teks, index, jumlah);

Penulisan awal diawali dengan perintah copy, dengan diikuti teks yang ditunjukan teks. Awal pengcopian ditunjukan dengan index, dan jumlah karakter yang akan di tulis ulang ditunjukan deengan perintah jumlah.

Contoh

a. Hasil setelah form dijalankan



Gambar 7.9 Hasil Form Copy Teks

b. Desain Form



Gambar 7.10 Desain Form Copy Teks
c. Desain Properties

Object Caption/Text Name
Label 1 Operasi Copy Teks Label1
Label 2 Kata Awal Label2
Label 3 Hasil Copy 1 Label3
Label4 Hasil Copy 2 Label4
Edit1 - eawal
Edit2 - Ehasil1
Edit3 - Ehasil2
Button1 OK bOK
Button2 Close Bclose


d. Listing Program

Program untuk mengeksekusi program

procedure TForm6.bokClick(Sender: TObject);
var
karakter:string;
begin
karakter := eawal.Text;
ehasil1.Text := copy(karakter,5,3);
ehasil2.Text := copy(karakter,3,10)
end;

Program untuk menutup Form

procedure TForm6.bcloseClick(Sender: TObject);
begin
close;
end;

7.6. Konversi Karakter ke Ascii (Chr)

Fungsi ini digunakan untuk mengkonversi Kode Acsii menjadi nilai karakter atau huruf.
Bentuk Umum

Chr(karakter);








Contoh

a. Hasil setelah dijalankan



Gambar 7.11 Hasil Form Konvesi Ascii

b. Desain Form



Gambar 7.12 Desain Form Konversi ASCII

c. Desain properties

Object Caption/Text Name
Label 1 Ketikan angka dari kode ASCII Label1
Label 2 Karakter dari kode Ascii tersebut adalah Label2
Edit1 - eangka
Edit2 - ehuruf
Button1 OK bOK
Groupbox1 Konversi dari Angka ke huruf Groupbox1


d. Listing Program

procedure TForm11.bokClick(Sender: TObject);
var
angka : integer;
begin
angka:= strtoint(eangka.Text);
ehuruf.Text := chr(angka);
end;