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: TObject);
begin
EdTKP.text:=ilangintitik(EdTKP.text);
end;

 

Leave a Reply