Programming-Idioms

Edit summary for version 65 by Anonymous:
[Pascal] Pascal has been traditionally 1-based rather than 0-based, by convention

↷

2019-09-26, 18:04:58

2019-09-26, 18:18:10

Idiom #13 Iterate over map keys and values

Print each key k with its value x from an associative array mymap

Print each key k with its value x from an associative array mymap

table dictionary hash traverse traversal

table dictionary hash traverse traversal

uses fgl;
type TMyMap = specialize TFPGMap<String, Integer>;

uses fgl;
type TMyMap = specialize TFPGMap<String, Integer>;

for i := 0 to mymap.Count - 1 do
  WriteLn(mymap.Keys[i], '=', mymap.Data[i]);

for i := 1 to mymap.Count 		do
  WriteLn(mymap.Keys[i], '=', mymap.Data[i]);

http://wiki.freepascal.org/Generics#fgl_unit

http://wiki.freepascal.org/Generics#fgl_unit

Next change ↷