blob: 83072fb271f62625f11e0eaac88a8c5229a218d1 (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
|
{ %norun }
program a;
{$ifdef FPC}
{$mode delphi}
{$endif}
type
TBase=class
private
fData:string;
procedure Setdata(ndx:integer;const s:string);
function GetData(ndx:integer):string;
function OldIsStored(ndx:integer):boolean;
public
property Data:string index 0 read GetData write SetData stored OldIsStored;
end;
TDerived=class(TBase)
private
function IsDataStored(ndx:integer):boolean;
published
property Data stored IsDataStored;
end;
procedure TBase.Setdata(ndx:integer;const s:string);
begin
if ndx=0 then fData:=s;
end;
function TBase.GetData(ndx:integer):string;
begin
if ndx=0 then
Result:=fData
else
Result:='';
end;
function TBase.OldIsStored(ndx:integer):boolean;
begin
Result:=ndx>1;
end;
function TDerived.IsDataStored(ndx:integer):boolean;
begin
Result:=ndx=0;
end;
begin
end.
|
