11 lines
107 B
ObjectPascal
11 lines
107 B
ObjectPascal
type
|
|
Tcl = class
|
|
dummy: longint;
|
|
end;
|
|
var
|
|
c1: cl;
|
|
begin
|
|
c1:=Tcl.create;
|
|
...
|
|
c1.destroy;
|
|
end;
|