blob: e3def7183b7f0adc4f8334096da514b5bd4ab9d3 (
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
28
29
30
|
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TMyComponent = class
public
constructor Create(k1:longint;k2: shortstring);
destructor Destroy;override;
end;
TMyComponent1 = class(TMyComponent)
public
constructor Create(l1:longint;l2:shortstring);
end;
constructor TMyComponent.Create(k1:longint;k2:shortstring);
begin
end;
destructor TMyComponent.Destroy;
begin
end;
constructor TMyComponent1.Create(l1:longint;l2:shortstring);
begin
inherited;
end;
begin
end.
|
