11 lines
216 B
ObjectPascal
11 lines
216 B
ObjectPascal
|
type
|
|||
|
|
TPair = auto class
|
|||
|
|
Key: string;
|
|||
|
|
Value: integer;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var A := Arr(new TPair('a', 3), new TPair('c', 1), new TPair('b', 4));
|
|||
|
|
foreach var p in A do
|
|||
|
|
writeln(p.Key, '->', p.Value);
|
|||
|
|
end.
|