string - Delphi 汇编函数返回长字符串

Question

我正在尝试学习 Delphi 中的内联汇编编程，为此我发现 this article非常有帮助。

现在我希望编写一个返回长字符串的汇编函数，特别是 AnsiString (为了简单起见)。我已经写了

function myfunc: AnsiString;
asm
  // eax = @result
  mov edx, 3
  mov ecx, 1252
  call System.@LStrSetLength
  mov [eax + 0], ord('A')
  mov [eax + 1], ord('B')
  mov [eax + 2], ord('C')
end;

说明:

返回字符串的函数有一个不可见的 var result: AnsiString (在本例中)参数，因此，在函数的开头，eax 应保存地址结果字符串的。然后，我将 edx 和 ecx 分别设置为 3 和 1252，然后调用 System._LStrSetLength。实际上，我愿意

  _LStrSetLength(@result, 3, 1252)

其中 3 是字符串的新长度(以字符 = 字节为单位)，1252 是标准 windows-1252代码页。

然后，知道eax是the address of the first character of the string ，我只是将字符串设置为“ABC”。但它不起作用 - 它给了我无意义的数据或 EAccessViolation。有什么问题吗？

更新

现在我们有两个看似有效的 myfunc 实现，一个使用 NewAnsiString，另一个使用 LStrSetLength。我不禁想知道它们是否都是正确的，因为它们不会扰乱 Delphi 的内部字符串处理(引用计数、自动释放等)。

Answer 1

你必须使用某种:

function myfunc: AnsiString;
asm
  push eax // save @result
  call system.@LStrClr
  mov    eax,3                 {Length}
{$ifdef UNICODE}
  mov    edx,1252 // code page for Delphi 2009/2010
{$endif}
  call   system.@NewAnsiString
  pop edx
  mov [edx],eax
  mov [eax],$303132
end;

它将返回一个“210”字符串...

放置 {$ifdef UNICODE} block 以使您的代码与 2009 年之前的 Delphi 版本兼容始终是一个好主意。