mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 10:48:30 +02:00
33 lines
493 B
ObjectPascal
33 lines
493 B
ObjectPascal
{ Old file: tbs0337.pp }
|
|
{ }
|
|
|
|
program vartest;
|
|
|
|
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TMyComponent = class(TComponent)
|
|
aaaaaaaaaa: TComponent;
|
|
b: TComponent;
|
|
private
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
end;
|
|
|
|
|
|
constructor TMyComponent.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
aaaaaaaaaa := TComponent.Create(Self);
|
|
end;
|
|
|
|
var
|
|
MyComponent: TMyComponent;
|
|
|
|
begin
|
|
MyComponent := TMyComponent.Create(nil);
|
|
end.
|