MODIFIKASI KALIMAT

Buat form sbb :

 

{penggabungan kalimat}

procedure TForm1.Button1Click(Sender: TObject);

begin

ehasil.Text:=esatu.Text+edua.Text;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

esatu.Text:='';

edua.Text:='';

ehasil.Text:='';

end;

{penghapusan kalimat}

procedure TForm1.Button4Click(Sender: TObject);

var

kata:string;

jumlah:integer;

begin

  kata:=memo1.Text;

  delete(kata,strtoint(emulai.Text),strtoint(ejumlah.Text));

  memo2.Text:=kata;

end;

{panjang teks}

procedure TForm1.Button5Click(Sender: TObject);

var

panjang:string;

begin

    panjang:=Memo3.Text;

    Edit6.text:=inttostr(length(panjang));

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Edit6.Text:='';

Memo3.Text:='';

end;

{operasi pos}

procedure TForm1.Button7Click(Sender: TObject);

var

karakter:string;

kata:string;

hasil:integer;

begin

  karakter:=memo4.Text;

  kata:=ecari.Text;

  hasil:=pos(kata,karakter);

  eposisi.text:=inttostr(hasil);

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

memo4.Text:='';

ecari.Text:='';

eposisi.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Text:='';

memo2.Text:='';

emulai.Text:='';

ejumlah.Text:='';

end;

end.

semoga bermanfaat,,,heee