" OPERATOR STRING "

" LANGKAH-LANGKAH MEMBUAT OPERATOR STRING 

GABUNG, HAPUS, PANJANG KATA (LENGHT), CARI (POS) DAN COPY " 

• 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 simbol '+' (plus).

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

• 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) ;

• Mencari Karakter Pada Teks (POS)

Fungsi ini digunakan untuk mencari letak atau posisi suatu karakter dari suatu nilai
string. Nilai yang dihasilkan adalah berupa byte.
Bentuk Umum => Pos (sustr, string);

• Mengkopi String (Copy)

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

Bentuk Umum => Copy (teks, index, jumlah);

Penulisan awal diawali dengan perintah copy, dengan diikuti teks yang ditunjukan
teks. Awal pengambilan ditunjukkan dengan index, dan jumlah karakter yang akan
ditulis ulang ditunjukan dengan perintah jumlah.


"LISTING CODE"


procedure TForm1.BgabungClick(Sender: TObject);
var
depan:string[20];tengah:string[20];
akhir:string[20];gabung:string[65];
  nama:string;

begin
depan:=edepan.Text;
tengah:=etengah.Text;
akhir:=eakhir.Text;
gabung:=depan+' '+tengah+' '+akhir;
elengkap.text:=gabung;
  nama:=elengkap.Text;
  epanjang2.Text:=inttostr(length(nama));
end;

procedure TForm1.BOKClick(Sender: TObject);
var
karakter : string ;
pos, jumlah : integer ;
Nama:string;

begin
karakter := elengkap.text;
pos:= strtoint (eurut.Text);
jumlah:= strtoint (ejumlah.Text);
delete (karakter,pos,jumlah);
ehasil.text:= karakter;

    nama:=ehasil.text;
    Epanjang.Text:=inttostr(length(nama));

end;

procedure TForm1.BcloseClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.BcariClick(Sender: TObject);
var
karakter:string;
kar:string;
hasil:integer;

begin
karakter:=elengkap.text;
kar:=ecari.text;
hasil:=pos(kar,karakter);
Eposisi.text:=inttostr(hasil)

end;

procedure TForm1.BcopyClick(Sender: TObject);
var
karakter : string;
begin
karakter:=ehasil.Text;
ecopy1.Text:=copy(karakter,1,4);
ecopy2.Text:=copy(karakter,8,4);
end;

end.