[Lazarus] Foreach?

[Antônio]

For a single loop, maybe this, if was not so complicated:

for i := 0 to Form1.ComponentCount - 1 do
    if Pos('btnMacro', Form1.Components[i].Name) = 1 then
      TButton(Form1.Components[i]).Name :=
MacroList[StrToInt(Copy(Form1.Components[i].Name, 9, 2))].Name;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130608/30c8bbe0/attachment-0002.html>