blob: b04d8ffaae7616146103cedec44408152fb99081 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %norun }
{$mode delphi}
type ByteArray = array of byte;
procedure ZeroMemory(var X: array of byte; StartIndex, Count: integer); overload;
begin
end;
procedure ZeroMemory(var X: array of ByteArray; StartIndex, Count: integer); overload;
begin
end;
var
buffer: array of byte;
begin
ZeroMemory(Buffer, 0, Length(Buffer));
end.
|
