mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 04:38:02 +02:00
19fb48dfa9
conversions, instead failing to choose the best overload (Delphi-compatible) git-svn-id: trunk@17800 -
21 lines
336 B
ObjectPascal
21 lines
336 B
ObjectPascal
{ %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.
|
|
|