Mega Code Archive
How to validate a float number
<![CDATA[
Title: How to validate a float number
function StrIsReal(AString: string): Boolean;
var
I: Extended;
Code: Integer;
begin
Val(AString, I, Code);
Result := Code = 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '123.222';
if StrIsReal(Edit1.Text) then
ShowMessage('Valid float number! G¨¹ltige Gleitkommazahl!');
end;
// In Delphi 6, there is a TryStrToFloat function
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
f: double;
begin
s := '123.222';
if TryStrToFloat(s, f) then
ShowMessage('Ok!')
else
ShowMessage('No valid float number!');
end;
]]>