https://www.finalbuilder.com/resources/blogs/getting-started-with-delphi-xes-regular-expressio

Gday,

Thanks for the very useful regex discussion and code.

Alas, there is a mistake in line 25:

WriteLn(’ Group [’ + IntToStr(i) + ‘] : [’ + match.Value + ‘]’;

It should read:

WriteLn(’ Group [’ + IntToStr(i) + ‘] : [’ + match.Groups.Item[i].Value + ‘]’;

Cheers.

Thanks, amazed no one picked that up in 9 years!