2

我正在尝试在 Delphi 中学习内联汇编编程，为此我发现这篇文章非常有帮助。

现在我想写一个汇编函数返回一个长字符串，特别是一个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应该保存结果字符串的地址。然后我将edxandecx分别设置为 3 和 1252，然后调用System._LStrSetLength. 实际上，我确实

  _LStrSetLength(@result, 3, 1252)

其中 3 是字符串的新长度（字符 = 字节），1252 是标准windows-1252代码页。

然后，知道这eax是字符串的第一个字符的地址，我简单地将字符串设置为“ABC”。但它不起作用 - 它给了我无意义的数据或 EAccessViolation。问题是什么？

更新

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

4

2 回答 2

3

你必须使用某种：

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} 块以使您的代码与 2009 年之前的 Delphi 版本兼容总是一个好主意。

于 2010-07-22T21:23:40.677 回答
1

在 A.Bouchez 的出色帮助下，我设法纠正了自己的代码，采用LStrSetLength：

function myfunc: AnsiString;
asm

  push eax

  // eax = @result
  mov edx, 3
  mov ecx, 1252
  call System.@LStrSetLength

  pop eax

  mov ecx, [eax]

  mov [ecx], 'A'
  mov [ecx] + 1, 'B'
  mov [ecx] + 2, 'C'

end;
于 2010-07-22T21:40:14.563 回答