Logo

Programming-Idioms

History of Idiom 7 > diff from v19 to v20

Edit summary for version 20 by :

Version 19

2015-08-21, 08:40:45

Version 20

2015-08-22, 09:05:11

Idiom #7 Iterate over list indexes and values

Print each index i with its value x from an array-like collection items

Idiom #7 Iterate over list indexes and values

Print each index i with its value x from an array-like collection items

Imports
SysUtils
Imports
SysUtils
Code
var Iter:Integer;
    Items: array of String;
[..]
  for Iter := 0 to high(Items) do
    WriteLn(Format('Item %d = %s', [Iter, Items[Iter]]));
Code
var Iter:Integer;
    Items: array of String;
[..]
  for Iter := 0 to high(Items) do
    WriteLn('Item ', Iter, ' = ', Items[Iter]);