IT SOLUTIONS
Your full service technology partner! 
-Collapse +Expand
Delphi
Search Delphi Group:

Advanced
-Collapse +Expand Delphi To/From
To/FromCODEGuides
-Collapse +Expand Delphi Store
PRESTWOODSTORE

Prestwood eMagazine

January Edition
Subscribe now! It's Free!
Enter your email:

   ► KBProgrammingDelphi for W...Language Det...   Print This     
  From the December 2010 Issue of Prestwood eMag
 
Delphi Language Details:
Arrays
 
Posted 16 years ago on 3/18/2003 and updated 12/12/2006
Take Away: Arrays in Object Pascal.

KB100158



Arrays

The following demonstrates how to declare, set, and use values in an array:

procedure TMenuButtonForm.Button2Click(Sender: TObject);

var
  ar: array[1..10] of String;
begin

  ar[1] := 'David';
  ar[7] := 'Young';
  ShowMessage(ar[1]);
  ShowMessage(ar[7]);

end;

Using multi-dimensional arrays

It sounds like you might be talking about a multi-dimensional array. Here is an example of that:

procedure TMenuButtonForm.Button3Click(Sender: TObject);
var
  ar      : Array[1..3, 1..2] of String;
  Counter : Integer;
begin

  ar[1,1] := 'Mike';
  ar[1,2] := 'Prestwood';

  ar[2,1] := 'David';
  ar[2,2] := 'Young';

  ar[3,1] := 'Phillipe';
  ar[3,2] := 'Kahn';

  for Counter := 1 to High(ar) do
  begin
    ShowMessage(ar[Counter, 1] + ' ' + ar[Counter, 2]);
  end;

end;

Using 'open ended' arrays

Yes, that's dynamic arrays. Here is an example of a two dimensional resizable dynamic array:

procedure TMenuButtonForm.Button4Click(Sender: TObject);

var
  ar      : Array of Array of String;
  Counter : Integer;

begin

  SetLength(ar, 3, 3); //This sets the size.

  ar[0,1] := 'Mike';
  ar[0,2] := 'Prestwood';

  ar[1,1] := 'David';
  ar[1,2] := 'Young';

  ar[2,1] := 'Phillipe';
  ar[2,2] := 'Kahn';

  for Counter := Low(ar) to High(ar) do
  begin
    ShowMessage(ar[Counter, 1] + ' ' + ar[Counter, 2]);
  end;

end;


Comments

0 Comments.
Share a thought or comment...
 
Write a Comment...
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1201A1
Enter key:
KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205.

Visit Profile

 KB Article #100158 Counter
6701
Since 4/2/2008
-
   Contact Us!
 
Have a question? Need our services? Contact us now.
--Mike Prestwood

Call: 916-726-5675

email: info@prestwood.com


Go ahead!   Use Us! Call: 916-726-5675 


©1995-2019 Prestwood IT Solutions.   [Security & Privacy]