本文整理自网络,侵删。
function IsNumber(pcString: PChar): Boolean;begin Result := False; while pcString^ <> #0 do // 0 indicates the end of a PChar string if not (pcString^ in ['0'..'9']) then Exit; Inc(pcString); end; Result := True;end;
相关阅读 >>
Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题
Delphi stringgrid 加载excel表格文件内容自动宽度
Delphi xe增强的rtti妙用--动态创建包中的窗口类
更多相关阅读请进入《Delphi》频道 >>