blob: 8610bcf78c2e897eec17e18236581ad455fb17ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Source provided for Free Pascal Bug Report 3579 }
{ Submitted by "Martin Schreiber" on 2005-01-21 }
{ e-mail: }
program project1;
{$mode objfpc}{$H+}
uses
classes;
type
stringarty = array of string;
var
ar1,ar2: stringarty;
begin
setlength(ar1,4);
ar2:= copy(ar1); //AV
end.
|
