char buf[512]; var buf:array[0..511] of char; itemp:integer; begin itemp=1000; Fillchar(@buf[1],'\0',512); CopyMemory(@buf[1],@itemp,2); end;Fillchar(@buf[1],'\0',512); 这样类型的可以改为 ZeroMemory(@buf[1],512);
char buf[512]; var buf:array[0..511] of char; itemp:integer; begin itemp=1000; Fillchar(@buf[1],'\0',512); CopyMemory(@buf[1],@itemp,2); end;Fillchar(@buf[1],'\0',512); 这样类型的可以改为 ZeroMemory(@buf[1],512);
还有一个 procedure Move(const Source; var Dest; Count: Integer); Move copies Count bytes from Source to Dest. No range checking is performed. Move compensates for overlaps between the source and destination blocks. Whenever possible, use SizeOf to determine the count.
VOID CopyMemory (PVOID Destination, CONST VOID * Source,DWORD Length)
VOID CopyMemory (PVOID Destination, CONST VOID * Source,DWORD Length)
另
Move
MoveMemory
ZeroMemory
var buf:array[0..511] of char;
itemp:integer;
begin
itemp=1000;
Fillchar(@buf[1],'\0',512);
CopyMemory(@buf[1],@itemp,2);
end;Fillchar(@buf[1],'\0',512);
这样类型的可以改为 ZeroMemory(@buf[1],512);
var buf:array[0..511] of char;
itemp:integer;
begin
itemp=1000;
Fillchar(@buf[1],'\0',512);
CopyMemory(@buf[1],@itemp,2);
end;Fillchar(@buf[1],'\0',512);
这样类型的可以改为 ZeroMemory(@buf[1],512);
procedure Move(const Source; var Dest; Count: Integer);
Move copies Count bytes from Source to Dest. No range checking is performed. Move compensates for overlaps between the source and destination blocks. Whenever possible, use SizeOf to determine the count.