12 lines
257 B
ObjectPascal
12 lines
257 B
ObjectPascal
|
begin
|
||
|
|
var zoo := new Dictionary<string,integer>;
|
||
|
|
zoo['crocodile'] := 2;
|
||
|
|
zoo['jiraffe'] := 3;
|
||
|
|
zoo['behemoth'] := 1;
|
||
|
|
foreach var kv in zoo do
|
||
|
|
Println(kv.Key, kv.Value);
|
||
|
|
Println;
|
||
|
|
foreach var key in zoo.Keys do
|
||
|
|
Println(key,zoo[key]);
|
||
|
|
end.
|