ROGRAM POS DENGAN DELPHI

PROGRAM MENGGABUNG KATA DENGAN DELPHI

Button ok di panel gabung

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

button proses di panel hapus

var kata:string;

begin

   kata:=Memo1 .Text ;

  

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

   Memo2 .Text :=kata;

end;

button ok di panel panjang teks

var panjang:String ;

begin

panjang:=Memo3 .Text ;

epanjang.Text :=IntToStr(length(panjang));

end;

button ok di panel opersi pos

var

Data1 : string;

Data2 : string;

indekpencarian : Integer;

begin

Data1 := Memo4 .Text;

Data2 := Edit1.Text;

indekpencarian := Pos(Data2,Data1);

Edit2  .Text := IntToStr(indekpencarian);

end;