Unit 'xxxxxx' is specific to a platform

1：如果编译的时候，经常出现类似这种警告

    warning W1005: W1005 Unit 'FileCtrl' is specific to a platform 

    warning W1002: W1002 Symbol 'FindData' is specific to a platform

    就在Interface 与 Users 之间，也就是Users之前

    加上{$WARN  UNIT_PLATFORM OFF}

          {$WARN SYMBOL_PLATFORM OFF}

2:查看一个字符串中有多少个汉字,同时用这种方法,可以得到多少汉字,多个英文

var

  ans: AnsiString;

  wis: WideString;

  sub: Integer; // 汉字的个数

Begin

  ans := '盗版delphi';

  wis := WideString(ans);

  sub := Length(ans) - Length(wis);

3:树上定位到了结点, 但滚动条没有下拉,看不到, 这以加上

   Node.MakeVisible; 

   这样就会定位到,并且显示当前行,