mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-07 17:47:19 +01:00
15 lines
279 B
ObjectPascal
15 lines
279 B
ObjectPascal
{ 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.
|
|
|