fpcsrc/tests/webtbs/tw9419.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

uses
  fgl;

type
  TEnum = (ta, tb, tc);

  TMyMap = specialize TFPGMap<string, TEnum>;

var
  map : TMyMap;
  c : TEnum;
  i : Longint;

begin
  map := TMymap.Create();

  map.Add('Hello', ta);

  map.Find('Hello', i);
end.