mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 09:18:10 +02:00
22 lines
279 B
ObjectPascal
22 lines
279 B
ObjectPascal
{$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.
|