Creating an Array: Difference between revisions

Content added Content deleted
m (→‎{{header|Pascal}}: no third level long lines; rm delphi specific (moving to delphi header))
Line 568:
 
=={{header|Pascal}}==
=== '''Using a fixed length array as global or stack variable (all Pascal versions) ==='''
<lang pascal>
var
Line 581:
</lang>
 
=== '''Dynamically allocating a fixed length array on the heap (all Pascal versions) ==='''
<lang pascal>
type
Line 595:
</lang>
 
=== '''Defining a variable-length array (Extended Pascal) ==='''
 
{{works with|Extended Pascal}}
 
<lang pascal>
type
Line 616 ⟶ 619:
</lang>
Note that also the lower index may be given as dynamic argument.
 
=== Defining a variable-length array (Delphi) ===
<lang pascal>
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.
 
=={{header|Perl}}==
Retrieved from "https://rosettacode.org/wiki/Creating_an_Array"