Pascal and Delphi

List vector

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Nov 2007

Posts: 3

Reputation: spockenheit is an unknown quantity at this point

Solved Threads: 0

spockenheit spockenheit is offline

Offline

Newbie Poster

List vector

Dec 19th, 2007

How do I list the number of elements in a vector, i.e test : array[1..10] of string; ?

•

Join Date: Nov 2007

Posts: 19

Reputation: Artmann is an unknown quantity at this point

Solved Threads: 0

Artmann

Offline

Newbie Poster

Re: List vector

Dec 19th, 2007

I think it's something like this

 Help with Code Tags 
 Delphi Syntax (Toggle Plain Text) 
 
program ??;
 
var test : array[0..4] of String;
      l : Integer;
 
 
begin
 
a[0] := '1';
a[1] := '2';
a[2] := '3';
a[3] := '4';
a[4] := '5';  
 
 
writeLn('There are ',length(a),' elements in the array');
 
end.
 
program ??;

var test : array[0..4] of String;
      l : Integer;


begin

a[0] := '1';
a[1] := '2';
a[2] := '3';
a[3] := '4';
a[4] := '5';  
   
 
writeLn('There are ',length(a),' elements in the array');

end.

-Signed Artmann

•

Join Date: Oct 2007

Posts: 1,953

Reputation: Duoas has much to be proud of

Solved Threads: 214

Duoas

Offline

Posting Virtuoso

Re: List vector

Dec 19th, 2007

length() returns the number of elements in an array.
low() returns the index of the first element.
high() returns the index of the last element.
setLength() changes the size of a dynamic array.

 Help with Code Tags 
 Delphi Syntax (Toggle Plain Text) 
var
  xs: array of integer;
  cntr: integer;
begin
  setLength( xs, 5 );
  writeln( 'Please enter ', length( xs ), ' integers: ' );
  for cntr := low( xs ) to high( xs ) do read( xs[ cntr ] );
end.
var
  xs: array of integer;
  cntr: integer;
begin
  setLength( xs, 5 );
  writeln( 'Please enter ', length( xs ), ' integers: ' );
  for cntr := low( xs ) to high( xs ) do read( xs[ cntr ] );
end.