blob: 9a9035782a05692b5bf61e0010b10061a2764433 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{ Source provided for Free Pascal Bug Report 2912 }
{ Submitted by "Bill Pearce" on 2004-01-19 }
{ e-mail: pearceg@post.queensu.ca }
procedure SetRowCount(n,m : integer);
var
tmp : array of array of string;
begin
SetLength(tmp, n, m);
end;
begin
SetRowCount(10,2);
end.
|
