Delphiのメモリ操作関数(4):メモリのクリアと埋め込み
2019 ワード
FillMemory、ZeroMemoryは一目瞭然の2つの関数ですが、実はFillCharを呼び出しています.
クリアは空文字(#0:番号0の文字)を埋めるだけで、どちらかというと同じことです.
次のテストのために、メモリを16進数で表示する関数を書きます.
FillMemory、ZeroMemory、FillCharの3つのパディング関数をテストします.
このとき、私は一つの問題を考えました.
GetMemとGetMemoryには初期化メモリがありません.AllocMemはメモリを空に初期化します.
ReallocMem、ReallocMemoryはメモリを初期化しますか?
テストしてみます(結果は初期化されていません):
なお、FillMemory、ZeroMemoryの操作対象はポインタである、FillCharの操作対象はエンティティである.
クリアは空文字(#0:番号0の文字)を埋めるだけで、どちらかというと同じことです.
次のテストのために、メモリを16進数で表示する関数を書きます.
function GetMemBytes(var X; size: Integer): string;
var
pb: PByte;
i: Integer;
begin
pb := PByte(X);
for i := 0 to size - 1 do
begin
Result := Result + IntToHex(pb^, 2) + #32;
Inc(pb);
end;
end; {GetMemBytes end}
// :
var
p1: PAnsiChar;
p2: PWideChar;
s1: AnsiString;
s2: UnicodeString;
begin
p1 := 'ABCD';
p2 := 'ABCD';
s1 := 'ABCD';
s2 := 'ABCD';
ShowMessage(GetMemBytes(p1,4)); {41 42 43 44}
ShowMessage(GetMemBytes(p2,8)); {41 00 42 00 43 00 44 00}
ShowMessage(GetMemBytes(s1,4)); {41 42 43 44}
ShowMessage(GetMemBytes(s2,8)); {41 00 42 00 43 00 44 00}
end;
FillMemory、ZeroMemory、FillCharの3つのパディング関数をテストします.
const
num = 10;
var
p: PChar;
begin
p := StrAlloc(num);
ShowMessage(GetMemBytes(p, num)); { StrAlloc }
FillMemory(p, num, Byte('A'));
ShowMessage(GetMemBytes(p, num)); {41 41 41 41 41 41 41 41 41 41}
ZeroMemory(p, num);
ShowMessage(GetMemBytes(p, num)); {00 00 00 00 00 00 00 00 00 00}
FillChar(p^, num, 'B');
ShowMessage(GetMemBytes(p, num)); {42 42 42 42 42 42 42 42 42 42}
StrDispose(p);
end;
このとき、私は一つの問題を考えました.
GetMemとGetMemoryには初期化メモリがありません.AllocMemはメモリを空に初期化します.
ReallocMem、ReallocMemoryはメモリを初期化しますか?
テストしてみます(結果は初期化されていません):
{ 1}
var
p: Pointer;
begin
p := GetMemory(3);
ShowMessage(GetMemBytes(p, 3));
ReallocMem(p, 10);
ShowMessage(GetMemBytes(p, 10)); { }
FreeMemory(p);
end;
{ 2}
var
p: Pointer;
begin
p := AllocMem(3);
ShowMessage(GetMemBytes(p, 3));
ReallocMem(p, 10);
ShowMessage(GetMemBytes(p, 10)); { }
FreeMemory(p);
end;
なお、FillMemory、ZeroMemoryの操作対象はポインタである、FillCharの操作対象はエンティティである.