如何使用TCharHelper?

时间:2015-01-07 13:27:10

标签: delphi char delphi-xe5

下一个代码:

function get_symbol (var s: String): String;
var c: Char;
    p: Int32;
begin
// ... some more code ...
   c := upcase (s [p]);
   if IsDigit (c) then

导致以下错误消息:

[dcc32 Warning] fmx_utilities_string.pas(188): W1000 Symbol 'IsDigit' is deprecated: 'Use TCharHelper'

我不理解这条消息,因为包含了System.Character,c被声明为Char,而TCharhelper被声明为Char的角色助手。我究竟做错了什么?

1 个答案:

答案 0 :(得分:9)

您没有使用TCharHelper;您正在使用旧的System.Character IsDigit函数。使用TCharHelper.IsDigit的方法是:

if c.IsDigit then
  ...