琢磨2天想不通Move函数怎么用啊,求正确用法
function TCommunication.SendDataBuffers(GateIdx: Integer; Gate: pTGateInfo; MsgList: TList): Boolean;
DataA: PChar;
DataB: PChar;
DataC: PChar;
I: Integer;
nDataALen: Integer;
nDataBLen: Integer;
nDataCLen: Integer;

try

I := 0;
DataA := MsgList.Items[I];
while (True) do begin
try
if (I + 1) >= MsgList.Count then Break;
DataB := MsgList.Items[I + 1];
Move(DataA^, nDataALen, SizeOf(Integer));
Move(DataB^, nDataBLen, SizeOf(Integer));

if (nDataALen + nDataBLen) < g_Config.nBlock then begin
MsgList.Delete(I + 1);
GetMem(DataC, nDataALen + SizeOf(Integer) + nDataBLen);
nDataCLen := nDataALen + nDataBLen;
Move(nDataCLen, DataC^, SizeOf(Integer));
Move(DataA[SizeOf(Integer)], PChar(DataC + SizeOf(Integer))^, nDataALen);
Move(DataB[SizeOf(Integer)], PChar(DataC + nDataALen + SizeOf(Integer))^, nDataBLen);
FreeMem(DataA);
FreeMem(DataB);
DataA := DataC;
MsgList.Items[I] := DataA;
end;


说明下这个MsgList它加载的是一个文本文件中的内容(汉字),g_Config.nBlock是Integer类型的它的值是1024
1.Move(DataA^, nDataALen, SizeOf(Integer));从这里我就开始犯迷糊了.
我个人理解是DataA^从这里移动SizeOf(Integer)这么多字节到nDataALen,但是DataA是PChar类型nDataALen是Integer的, 移 过去之后变成什么东西了?搞不懂
2.if (nDataALen + nDataBLen) < g_Config.nBlock then begin这里他们进行比较,nDataALen和nDataBLen肯定是数值了, 怎么知道他们是多大的数
3.Move(nDataCLen, DataC^, SizeOf(Integer));这句也不太明白
4.Move(DataA[SizeOf(Integer)], PChar(DataC + SizeOf(Integer))^, nDataALen);
DataA[SizeOf(Integer)]从这个位置开始移动,这个位置内容是什么？

这段代码求解释,翻译

[解决办法]