blob: a6d159ecc00fc3eaf422f07fd51463c8e24896e9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ Source provided for Free Pascal Bug Report 3083 }
{ Submitted by "Martin Schreiber" on 2004-05-04 }
{ e-mail: }
program project1;
{$mode delphi}{$H+}
var
ar1: array of ansistring;
begin
setlength(ar1,1);
ar1[0]:= 'abc';
ar1:= nil; //av!
end.
|
