| From the December 2010 Issue of Prestwood eMag |
| | Delphi Language Details: Arrays | |
|
Posted 22 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;
0 Comments.
Share a thought or comment...
| KB Article #100158 Counter |
| 8461 |
|
Since 4/2/2008
|
Delphi
Print This
Tags:
