PROGRAM DELPHI MENGHITUNG JUMLAH KARAKTER YG DI INPUT d5a6s4d4
Oke kali ini ane mau berbagi cara membuat program menghitung karakter yang kita input. Langsung aja agan bikin desain form kayak gini :
Kemudian di tombol OK isi mantranya seperti ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
USERSTRING:=EDIT1.Text;
LABEL2.Caption:='PANJANG KATA INI' +
INTTOSTR(LENGTH(USERSTRING))+'KARAKTER';
end;
end.
Ketika di jalan kan. Dan tombol OK di klik maka hasilnya akan seperti ini :
No comments:
Post a Comment