what on Earth was I trying to do ? ( FOREACH )

[lazer]

Hi,

I am porting something I wrote under TPW ( yeah, that means about 30y ago ! ) to Lazarus

I found a snip of code I can't make sense of . It looks like garbage but I'm pretty sure this is the final working code I used.

Code: Pascal  [Select][+][-]

1. procedure Tspellwin.showbits(flag:word);
2.   procedure showbit(bit:Pwindowsobject); far;
3.   begin
4.     bit^.show(flag);
5.   end;
6. begin
7.   foreach(@showbit);
8.   if questool<>NIL then questool^.show(sw_hide);
9. end; {showbits}

It's something about hiding/showing a a bunch of controls but I can't make sense of the use foreach.

Can anyone explain that syntax ?

TIA.

[Fred vS]

https://engineertips.wordpress.com/2020/04/26/delphi-foreach/

[ccrause]

Is Tspellwin perhaps derived from TCollection? It has a foreach method.

[lazer]

thanks ccrause, that does seem to explain this zany syntax.

Tspellwin isn't but I'll have to check back on what it was before I ported the code. That does seem to explain what I did decades ago, I should be able to fix it now.

Many thanks.