Delphi : Operator String

1.  MENGGABUNGKAN STRING
Menggabungkan string adalah proses menggabungkan dua atau lebih karakter menjadi satu kalimat atau kata yang baru.

Contoh Program :

a.  Hasil Program

b.  Design Form

c.  Listing Program
procedure TForm1.Button1Click(Sender: TObject);
var
depan: string[20];
tengah: string[20];
belakang: string[20];
gabung: string[60];
begin
depan:= edit1.Text;
tengah:= edit2.Text;
belakang:= edit3.Text;
gabung:= depan + ' ' + tengah + ' ' + belakang;
edit4.Text:= gabung;

end;

2.  MENGHAPUS TEKS

Prosedur standard ini digunakan untuk menghapus atau mengurangi sebagian atau seluruh karakter yang ditentukan.

Bentuk umum penulisan :

     Delete(teks, index, jumlah)

Delete adalah prosedur standard yang digunakan untuk menghapus teks.

teks adalah kalimat atau kata atau string yang akan dihapus.

Index menunjukan posisi awal yang akan dihapus.

Jumlah menunjukan jumlah karakter yang akan dihapus.

Contoh Program :

a.  Hasil Program

b.  Design Form

c.  Listing Program

procedure TForm1.Button1Click(Sender: TObject);

var

nama: string;

urut,jumlah: integer;

begin

nama:= edit1.Text;

urut:= strtoint(edit2.Text);

jumlah:= strtoint(edit3.Text);

Delete(nama,urut,jumlah);

edit4.Text:= nama;

end;

3.  MENGHITUNG JUMLAH KARAKTER 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 penulisan :

          Length(teks)

Contoh Program : 

a.  Hasil Program

b.  Design Form

c.  Listing Program

procedure TForm1.Button1Click(Sender: TObject);

var

nama: string;

begin

nama:= edit1.Text;

edit2.Text:= inttostr(length(nama));

end;