blob: 1afcbaac8d85f360926c994aa98812416c90bc52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{$ifdef fpc}{$mode objfpc}{$endif}
unit ub0366;
interface
type
tc1=class
private
FHeight : integer;
public
constructor Create;
property Height : integer read FHeight write FHeight;
end;
implementation
constructor tc1.Create;
begin
FHeight:=0;
end;
end.
|
