david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
9 lines
157 B
Plaintext
9 lines
157 B
Plaintext
Program IFSTest;
|
|
type
|
|
TByteArray = array of byte;
|
|
var
|
|
x: TByteARray;
|
|
Begin
|
|
x[0] := 1;
|
|
// will cause an runtime error (Out Of Record Fields Range)
|
|
End. |