用于shorttrings的Delphi编译器指令不起作用？

发布时间：2020-12-15 09:20:03 所属栏目：大数据来源：网络整理

导读：我正在尝试将项目从Delphi 4移植到Delphi XE2.我要求在项目中使用shortstring.根据Delphi帮助,$H-应该使编译器使用字符串类型的短串.我已经使用了这个指令,但我没有看到任何区别.我写了一个小测试程序： program Stringtest;{$APPTYPE CONSOLE}{$R *.res}{$H

我正在尝试将项目从Delphi 4移植到Delphi XE2.我要求在项目中使用shortstring.根据Delphi帮助,$H-应该使编译器使用字符串类型的短串.我已经使用了这个指令,但我没有看到任何区别.我写了一个小测试程序：

program Stringtest;

{$APPTYPE CONSOLE}

{$R *.res}
{$H- }
uses
  System.SysUtils;

var
 str : string;
 short : shortstring;
begin
  try
    str := 'testing';
    short := 'testing';
    Writeln('str ' +Format('%d',[sizeOf(str)]) );
    Writeln('short  ' +Format('%d',[sizeOf(short)])  );
    Readln; 
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
end.

在我看来,str和short的输出应该是相同的,因为编译器应该将它们都视为短串.但str的大小为4,简称为256.有没有其他方法让编译器将字符串视为shorttring,或者是在源代码中用shortstring替换所有字符串出现的唯一解决方案？

解决方法

$H-是遗留的,仅用于向后兼容.没有办法强制Delphi XE2(或任何版本的Delphi编译器从D2009及更高版本)不使用Unicode作为默认字符串类型.

编译器指令仍然只是为了防止旧代码在编译时中断.当Delphi 2009以Unicode-only作为默认字符串类型发布时,有一点骚动,没有切换回恢复为AnsiString作为默认值.据解释,他们确定这几乎是不可能的,因为需要有两个不同版本的RTL,VCL等.允许ShortString成为默认值需要相同的东西.

您需要将所有字符串引用显式更改为shortstring(或者更好,修复代码以不需要它们).

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!