summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw0868.pp
blob: dbab8b46f36a2337a2ab90c004a2336e81e7c686 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
{$mode objfpc}
{$H+}
type
  TTreeData = record
    Key: String;
    Data: Integer;
  end;

  TNode = class
    data: TTreeData;
  end;

  TStrIntDic = class
    FNode: TNode;
    destructor Destroy; override;
    procedure Add(const Key: String; Data: Integer);
  end;

destructor TStrIntDic.Destroy;
begin
  FNode.Free;
  inherited Destroy;
end;

procedure TStrIntDic.Add(const Key: String; Data: Integer);
var
  T: TTreeData;
begin
  T.Key:=Key;
  T.Data:=Data;
  FNode:=TNode.Create;
  FNode.data:=T;
end;

procedure Test;
var
  SD: TStrIntDic;
begin
  SD:=TStrIntDic.Create;
  try
    SD.Add('asdf', 2);
  finally
    SD.Free;
  end;
end;

begin
  Test;
  write('Test for bug 868 completed.');
  {readln;}
end.