Hi,

Are we supposed to be able to assign to Self? FPC accepts the attached unit, but seems strange to me to allow this?

Micha
{$mode objfpc}

unit selfass;

interface

type

TTestObj = class
  procedure TestSelf;
end;

implementation

procedure TTestObj.TestSelf;
begin
  Self := nil;
end;

end.
_______________________________________________
fpc-devel maillist  -  [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to