Hello Code DZ.
> on the mailing list Sven posted new fix , did you try it ? seems more
> compact
Sven did help a lot.
In last mse-org commit, all is fixed correctly, using the the right way and
agreed by Sven.
But for the code, I agree, it is not the most compact and nice it should be.
It is about filtering a array
There are many way to deal with array.
So everybody is welcome to propose a nicer way.
Here is the code:
{$if FPC_FULLVERSION > 030200}
var
info: methodparaminfoty; // info.params = paraminfoarty
params1: paraminfoarty; // array of parameters
x : integer;
...
// info was already filled with data and info.params must be filtered.
...
setlength(params1,0);
for x:=0 to length(info.params) -1 do
with info.params[x] do if not (pfHidden in flags) then // check if it is
hidden
begin
setlength(params1,length(params1)+1);
params1[length(params1)-1] := info.params[x];
end;
info.params := params1; // take filtered array as parameter array
{$endif}
--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
