delphi - 如何使用TCharHelper？

Question

下一个代码:

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 警告] fmx_utilities_string.pas(188): W1000 符号“IsDigit”已弃用:“使用 TCharHelper”

我不明白这条消息，因为包含了 System.Character，c 被声明为 Char，TCharhelper 被声明为 Char 的字符助手。我究竟做错了什么？

Answer 1

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

if c.IsDigit then
  ...