Delphi System单元-Move - 移动内存数据，不分类型 untyped

Delphi System单元 - Move - 移动内存数据，不分类型 untyped    {解释权归本博客，如有错，请指出，谢谢}

单元：System

Move 原型：

procedure  Move( const Source; var Dest; count : Integer );   
var
  S, D: PChar;
  I: Integer;
begin
  S := PChar(@Source);  //指针地址
  D := PChar(@Dest);  //
  if S = D then Exit;
  if Cardinal(D) > Cardinal(S) then
    for I := count-1 downto 0 do
      D[I] := S[I]
  else
    for I := 0 to count-1 do
      D[I] := S[I];
end;

还有一段汇编的原型：

procedure       Move( const Source; var Dest; count : Integer );
asm
{     ->EAX     Pointer to source       }
{       EDX     Pointer to destination  }
{       ECX     Count                   }

        PUSH    ESI
        PUSH    EDI

        MOV     ESI,EAX
        MOV     EDI,EDX

        MOV     EAX,ECX

        CMP     EDI,ESI
        JA      @@down
        JE      @@exit

        SAR     ECX,2           { copy count DIV 4 dwords       }
        JS      @@exit

        REP     MOVSD

        MOV     ECX,EAX
        AND     ECX,03H
        REP     MOVSB           { copy count MOD 4 bytes        }
        JMP     @@exit

@@down:
        LEA     ESI,[ESI+ECX-4] { point ESI to last dword of source     }
        LEA     EDI,[EDI+ECX-4] { point EDI to last dword of dest       }

        SAR     ECX,2           { copy count DIV 4 dwords       }
        JS      @@exit
        STD
        REP     MOVSD

        MOV     ECX,EAX
        AND     ECX,03H         { copy count MOD 4 bytes        }
        ADD     ESI,4-1         { point to last byte of rest    }
        ADD     EDI,4-1
        REP     MOVSB
        CLD
@@exit:
        POP     EDI
        POP     ESI
end;

以上可以看出Move 的功能是很强大的，也可以直接用汇编来编译， 简单的可以理解为：Move 移动内存数据，不分类型   {解释权归本博客，如有错，请指出，谢谢}

 

Delphi 使用示例1：

// 本例将字符从Char数组移到整数中。将整数显示为十六进制时，可以看到“W”（0x57）存储在整数的最低有效字节中。

var
  A: array[1..4] of Char;
  B: Integer;

procedure DisplayAB;
begin
  Form1.ListBox1.Items[0] := A[1];
  Form1.ListBox1.Items[1] := A[2];
  Form1.ListBox1.Items[2] := A[3];
  Form1.ListBox1.Items[3] := A[4];
  Form1.Edit1.Text := IntToHex(B, 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Move(A, B, SizeOf(B));  { SizeOf = safety! }
  DisplayAB;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I : Integer;
begin
  A[1] := 'W';
  A[2] := 'H';
  A[3] := 'A';
  A[4] := 'T';
  B := 5;
  DisplayAB;
end;

注意：此方法有一个非类型化参数，这可能导致内存损坏。若要避免此问题，请对方法的最后一个参数使用SizeOf。

Source、Dest 都没有指明类型，而是 untyped parameter

 

Delphi 使用示例2：

var
Source,Dest: string;
begin
  Source := '123456789';
  Dest   := '---------'; 
  Move(Source[5], Dest[3], 4);      //将Source按字节拷贝到Dest。Count为要拷贝的字节数。
  ShowMessage(Dest); {--5678---} 
end;

　　

 

 

创建时间：2020.06.23　　更新时间：