?? chcheckutils.pas
字號(hào):
unit CHCheckUtils;
interface
uses SysUtils, Forms, Windows, CHMessageUtils;
function CheckNum(text: string; isfloat: Boolean=True): Boolean;
implementation
function CheckNum(text: string; isfloat: Boolean): Boolean;
begin
Result := True;
try
if isfloat then StrToFloat(text) else StrToInt(text);
except
Result := False;
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -