afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
14 lines
319 B
Plaintext
14 lines
319 B
Plaintext
Program IFSTest;
|
|
type
|
|
TByteArray = array of byte;
|
|
var
|
|
x: TByteARray;
|
|
Begin
|
|
try
|
|
x[0] := 1;
|
|
// will cause an runtime error (Out Of Record Fields Range)
|
|
writeln('Not supposed to be here');
|
|
except
|
|
Writeln('Error, which is ok since we accessed a field outside it''s bounds');
|
|
end;
|
|
End. |