Pascal and Delphi

Delphi re-indexes arrays passed to functions?

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

Thread Solved

•

Join Date: Nov 2008

Posts: 9

Reputation: TomRandall is an unknown quantity at this point

Solved Threads: 0

TomRandall TomRandall is offline

Offline

Newbie Poster

Delphi re-indexes arrays passed to functions?

-1

Sep 27th, 2009

Hi all,

I don't use Delphi often so this is probably a stupid question again, but why does Delphi (7) re-index arrays when they're passed to a function, as a simplified example...

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
program example;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  numbers: array[1..5] of Integer = (10, 20, 30, 40, 50);
 
procedure example(var nums: array of Integer);
begin
  WriteLn(nums[5]); //Undefined. 50 -> nums[4]
end;
 
begin
  Writeln(numbers[5]);
  example(numbers);
  Readln;
end.
program example;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  numbers: array[1..5] of Integer = (10, 20, 30, 40, 50);

procedure example(var nums: array of Integer);
begin
  WriteLn(nums[5]); //Undefined. 50 -> nums[4]
end;

begin
  Writeln(numbers[5]);
  example(numbers);
  Readln;
end.

Why does it do this? Thanks in advance for any answers.

Last edited by TomRandall; Sep 27th, 2009 at 2:59 pm.

•

Join Date: Jun 2007

Posts: 36

Reputation: fayyaz is an unknown quantity at this point

Solved Threads: 6

fayyaz

Offline

Light Poster

Re: Delphi re-indexes arrays passed to functions?

Sep 28th, 2009

Hello
this happend because an array index in Pascal by default start from 0
your array in Main program Start From 1 But the array that is defined in procedure is started from 0 By Default
so if you want to print fifth element of array in procedure you mast print num[4] in procedure.

•

Join Date: Feb 2009

Posts: 460

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 111

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Delphi re-indexes arrays passed to functions?

Sep 28th, 2009

What if the added parameter type is not meet properly?
Listen,if you create a new type as array and pass it to the proc...

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
 
program array1___;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
type TArray = array[1..5]of integer;
 
const numbers:TArray = (10,20,30,40,50);
 
 
procedure example(const nums: TArray);
begin
  WriteLn(nums[5]);
end;
 
begin
  Writeln(numbers[5]);{result is 50}
  example(numbers);{here too}
  Readln;
end.
program array1___;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type TArray = array[1..5]of integer;

const numbers:TArray = (10,20,30,40,50);


procedure example(const nums: TArray);
begin
  WriteLn(nums[5]);
end;

begin
  Writeln(numbers[5]);{result is 50}
  example(numbers);{here too}
  Readln;
end.

Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...