Delphi Drawers

数値かどうかのチェック

数値かどうかをチェックします。

function fnIsNumeric(strVal : string) : boolean;
var
  iTemp1:integer;
  iTemp2:integer;
begin
  Val(strVal,iTemp2,iTemp1);
  if iTemp2 = iTemp2 then begin
  end;
  Result :=  (iTemp1 = 0);
end;
Copyright © 2006 Hikijishi All Rights Reserved.
[] [delphi][0.00100302696228027]