Hi,
A type helper can change Self.
I wondered how FPC 3.3.1 handles properties and got some
unexpected results. Is this by design, a bug, or not-yet-implemented?
{$mode objfpc}{$modeswitch typehelpers}
type
TIntHlp = type helper for word
procedure DoIt;
end;
TBig = class
strict private
FW: word;
procedure SetW(const AValue: word);
public
property W: word read FW write SetW;
end;
var b: TBird;
procedure TBig.SetW(const AValue: word);
begin
// not called by type helper
writeln('TBig.SetW');
end;
procedure TIntHlp.DoIt;
begin
writeln('TIntHlp.DoIt START ',Self,' w=',b.w);
Self:=4; // changes b.FW directly
writeln('TIntHlp.DoIt END ',Self,' w=',b.w);
end;
begin
b:=TBig.Create;
b.w.DoIt;
end.
Mattias
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
