fpcsrc/tests/webtbs/tw3930.pp


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

{$ifdef fpc}
{$mode objfpc}
{$endif}
uses
  Classes;
  
type
  TMyStringList = type TStringlist;
  
var
  list : TMyStringList;

begin
  TMyStringList.Create.Free;
  if pointer(TMyStringList)<>pointer(TStringList) then
    halt(1);
  writeln('ok');
end.