c++ 中 strcopy 怎样用delphi 来实现？

Question

DWORD dwTotalSize = 60；
char szCallerAddress_1[] = "5551234";
strcpy((char*)((BYTE*)lpForwardList + dwOffset), szCallerAddress_1);
c++ 中有上述方法，其中 lpForwardList 是结构体指针，dwOffset 是Dword类型，szCallerAddress_1是 字符数组，
我用delphi实现
integer(lpForwardList) := integer(lpForwardList) + dwOffset;
CopyMemory(@lpForwardList, @szCallerAddress_1, 
                             sizeof(szCallerAddress_1));但是不能将szCallerAddress_1中的值copy到lpForwardList中。 请指教，thanks in advance.

Answer 1

Delphi里有相同功能的函数: StrCopyStrCopy(PChar(Integer(lpForwardList) + dwOffset), szCallerAddress_1);