请高人把这几句vb6代码转成delphi7的

Question

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Function GetY(Str As String) As Long
    Dim BytUnicode() As Byte
    Dim lngUnicode As Long    BytUnicode = Str
    CopyMemory ByVal VarPtr(lngUnicode), BytUnicode(0), 2    GetY = lngUnicodeEnd Function

Answer 1

因为VB没有内存拷贝函数不得不引出kernel32.dll中的RtlMoveMemory来拷贝函数.
Delphi本身生命了Copymemory并且还有move等一大批拷贝内存的函数.
并且他这个函数根本用不着翻译得那么复杂.所作的不过就是翻译Unicode字符串的前两个字节(也就是Unicode字符串第一个字符)到整数的操作.
function GetY(Str : WideString):WORD;
begin
  Result := WORD(str[1]);
end;