I.T. Discussion Community!
-Collapse +Expand
Delphi
Search Delphi Group:

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

Prestwood eMagazine

February 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 = P1204A1
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
6764
Since 4/2/2008
-
   Contact Us!
 
PrestwoodBoards.com was developed and is maintainted by me. Do you have a question or suggestion? Do you see a problem? Contact me now. My goal is to build an ad-free and spam-free source of I.T. information with many contributers (ok to promote your website/company in your bio). Yes, my company Prestwood IT Solutions is mentioned in my bio which shows with every post, but you can contribute and promote your pet project too!

962 People Online Now!!  
Sign In to see who's online now!  Not a member? Join now. It's free!
Show more stats...


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech