Fungsi cek entry data string mempunyai format Floating Point atau tidak

-->

Fungsi untuk mengecek apakah suatu entry data string mempunyai format Floating Point atau bukan

functionIsStrFloatNum(s: string): Boolean;
begin
try
StrToFloat(s);
Result := True;
except
Result := False;
end;
end;

Contoh penggunaan
If IsStrFloatNum(Edit1.text ) = true then ShowMessage(‘Data Adalah Floating Point’)
Else ShowMessage(‘Data Bukan Floating Point’);

Tweet