Merubah Kalimat

Function ini digunakan untuk merubah setiap huruf pada awal kata menjadi huruf besar (Title Case)

Function UbahKalimat(StrInput:String) : String;
Var I : Integer;
stmp : String;
begin
Stmp:=”;
Stmp:=Uppercase(copy(StrInput,0,1));
For I:=2 to Length(StrInput) do
Begin
If copy(StrInput,i-1,1)=’ ‘ then
Begin
stmp:=Stmp+Uppercase(Copy(StrInput,i,1));
End else
Begin
stmp:=Stmp+lowercase(Copy(StrInput,i,1));
End;
End;
Result:=Stmp;
end;

Contoh Penggunaannya :

Var str : String;

Begin
str := “selamat datang”;
Edit1.text := UbahKalimat(str);
Edit2.text := UbahKalimat(’semoga bermanfaat’);
End;