Toot

Written by The Last Psion | Alex on 2025-01-25 at 10:03

Well, it was surprisingly easy. Here, I'm re-declaring a strict protected method as private:

TPsionOOParserWrap = class(TPsionOOParser)

    private

        procedure _AddToken(toktype: TTokenType; tokliteral: String);

end;

{ snip }

procedure TPsionOOParserWrap._AddToken(toktype: TTokenType; tokliteral: String);

begin

Inherited;

end;

If someone with more knowledge of #ObjectPascal than me thinks that this is unnecessary, or there's a better way to do it, then please let me know!

[#]Pascal #FreePascal

=> More informations about this toot | View the thread | More toots from thelastpsion@oldbytes.space

Mentions

Tags

=> View objectpascal tag | View pascal tag | View freepascal tag