Hi,
Its quite a while since i last used the "as" Keyword but it seems to
be broke somehow.
In the following code i've got a compiler error: Illegal parameter
list in the line with the star,
at the opening Brace. A Cast ( T8BSetObject(ASet).FSet ... ) works fine.
--
type
TBaseSet = set of Char;
TSetObject = class
public
procedure Union( ASet: TSetObject ); virtual; abstract;
end;
T8BSetObject = class( TSetObject )
private
FSet: TBaseSet;
public
procedure Union( ASet: TSetObject ); override;
end;
..
procedure T8BSetObject.Union( ASet: TSetObject ); override;
begin
* Result := FSet + ( ASet as T8BSetObject).FSet;
end;
--
regards,
maka
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
