<div dir="auto"><div><div class="gmail_quote"><div dir="ltr" class="gmail_attr">fredvs <<a href="mailto:fiens@hotmail.com">fiens@hotmail.com</a>> schrieb am Mi., 24. Juli 2019, 08:10:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hello.<br>
<br>
> Check for pfHidden. <br>
<br>
Thanks Sven for helping.<br>
But I do not catch how to hide those "self" parameter.<br>
<br>
IMHO, the guilty is here, in Martin's code msedisignparser.pas <br>
(Sadly I did not find any example how to use TParameterFlag. <br>
The goal is to ignore first parameter if fpc >= 3.2.x) <br>
___________________________________________________<br>
<br>
procedure getmethodparaminfo(const atype: ptypeinfo; <br>
                                         var info: methodparaminfoty); <br>
begin <br>
... <br>
      for int1:= 0 to paramcount - 1 do begin <br>
      with params[int1] do begin<br>
<br>
----->      //////////// Here flags must be adapted for fpc 3.2.0 <br>
<br>
      flags:= tparamflags( <br>
         {$ifde mse_fpc_3_0_2}wordset{$else}byteset{$endif}(pbyte(po1)^)); <br>
       inc(po1,{$ifdef mse_fpc_3_2}2{$else}1{$endif}); <br></blockquote></div></div><div dir="auto"><br></div><div dir="auto">Shouldn't the first $ifdef check for mse_fpc_3_2 as well? </div><div dir="auto"><br></div><div dir="auto">I don't know the surrounding code, but in the end you should skip to insert the parameter into whatever structure you're generating if "pfHidden in flags", but you nevertheless need to advance your pointer to the next parameter.</div><div dir="auto"><br></div><div dir="auto">Regards, </div><div dir="auto">Sven </div></div>