Menghilangkan tanda titik di delphi
Menghilangkan tanda titik dengan program delphi pada text field Deklarasi fungsi type : private atau public function ilangintitik(angka :string):string; Listing program sbb : function TForm1.ilangintitik(angka :string) : string; var a : string; i : integer; begin a:=”; for i:=1 to length(angka) do if angka[i]<>’.’ then a:=a+angka[i]; result :=a; end; Penggunaan fungsi : procedure TForm1.EdTKHChange(Sender: … Read more