blob: f823d60ebc2b828c37bef3fa62c4de8737467467 (
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
31
32
33
34
35
36
37
38
39
40
41
|
{$ifdef fpc}{$mode objfpc}{$endif}
unit ub0506;
interface
type
c1=class
procedure SetValue(i:integer);
function GetValue:integer;
property Value:integer read GetValue write SetValue;
end;
c2=class(c1)
procedure SetValue(i:integer);
function GetValue:integer;
property Value read GetValue;
end;
implementation
procedure c1.SetValue(i:integer);
begin
writeln('c1.SetValue');
end;
function c1.GetValue:integer;
begin
writeln('c1.getValue');
result:=1;
end;
procedure c2.SetValue(i:integer);
begin
writeln('c2.SetValue');
end;
function c2.GetValue:integer;
begin
writeln('c2.getValue');
result:=2;
end;
end.
|
