BAB VII
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;
