mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-20 10:45:55 +02:00
28 lines
294 B
ObjectPascal
28 lines
294 B
ObjectPascal
unit unitw1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses classes;
|
|
|
|
type
|
|
TClassUW1Base = class
|
|
public
|
|
a: integer;
|
|
end;
|
|
|
|
TClassUW1BaseObject = class(TObject)
|
|
public
|
|
a: integer;
|
|
end;
|
|
|
|
TClassUW1BaseComponent = class(TComponent)
|
|
public
|
|
a: integer;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|