又是字符编码的问题，大家帮忙看看。

Mark独角兽

var
   s: string;
begin
    s := '独角兽';
    if s[Length(s)] = '兽' then
           ShowMessage('兽兽');      // 结果运行后，没有出现对话框。我估计是字符编码对不上。在Delphi上是没问题的。
                                                  //帮帮忙。要怎么办？？
end;

Mark独角兽

问题已经搞定。

解决方法 是：

uses
    LazUtf8;
var
  s: string;
begin
   s := '独角兽';
   if UTF8Copy(s, UTF8Length(s), 1) = '兽' then
       ShowMessage('兽兽');
end;

cuibq

赞赏楼主。