|
@@ -2,12 +2,12 @@
|
|
|
{ Submitted by "Adrian" on 2005-05-23 }
|
|
{ Submitted by "Adrian" on 2005-05-23 }
|
|
|
{ e-mail: [email protected] }
|
|
{ e-mail: [email protected] }
|
|
|
|
|
|
|
|
-{ $mode objfpc}
|
|
|
|
|
|
|
+{$mode objfpc}
|
|
|
program Bug;
|
|
program Bug;
|
|
|
|
|
|
|
|
type
|
|
type
|
|
|
TDynamicByteArray = array of byte;
|
|
TDynamicByteArray = array of byte;
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
function MaxByte(const ar: array of byte): Integer;
|
|
function MaxByte(const ar: array of byte): Integer;
|
|
|
var
|
|
var
|
|
|
i: Integer;
|
|
i: Integer;
|
florian