Rosetta Code

Creating an Array: Difference between revisions

Page Discussion

Creating an Array (view source)

Revision as of 01:01, 31 August 2011

372 bytes removed ,  12 years ago
→‎Delphi: Delete.
(→‎C++: Delete everything except Qt and MFC.)
(→‎Delphi: Delete.)
Line 247:
// static array
int[5] numbers = [0,1,2,3,4];</lang>
 
==[[Delphi]]==
'''Defining a variable-length array'''
<lang delphi>var
i: integer;
a: array of integer;
begin
readln(i);
SetLength(a, i); { create array }
a[0] := 2; { use it }
if high(a) = i
then
writeln('I expected that.');
else
writeln('Get a better compiler!');
finalize(a);
end</lang>
Delphi dynamic arrays have base 0 index.
 
==[[Fortran]]==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/6169"