PERTEMUAN 3 Lab G

Operator String

1.   Design Form

2.   Listing Program

procedure TForm1.bgabungClick(Sender: TObject);

var

depan:string[20];

tengah:string[20];

blkg:string[20];

gabung:string[80];

begin

depan:=edepan.Text;

tengah:=etengah.Text;

blkg:=eblkg.Text;

gabung:=depan+' '+tengah+' '+blkg;

elengkap.Text:=gabung;

end;

procedure TForm1.bhitungClick(Sender: TObject);

var

nama:string;

begin

nama:=elengkap.Text;

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

end;

procedure TForm1.bhapusClick(Sender: TObject);

var

karakter:string;

pos,jumlah:integer;

begin

karakter:=elengkap.Text;

pos:=strtoint(eurut.Text);

jumlah:=strtoint(ejml.Text);

delete(karakter,pos,jumlah);

ehasil.Text:=karakter;

end;

procedure TForm1.bkeluarClick(Sender: TObject);

begin

close;

end;