summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw2942a.pp
blob: b4bc23598d76073c30c6e7e6051bbc51a51e9ef7 (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
unit tw2942a;


interface
{$mode Delphi}

Type
  TIdStack = class
  public
    constructor Create; reintroduce; virtual;
    destructor Destroy; override;
    end;

implementation

constructor TIdStack.Create;
begin
inherited destroy;
end;

destructor TIdStack.Destroy;
begin
  inherited Destroy;
end;


end.