Topic: [Script] Regular expression
Example how to use regular expression (version 3.06b and later)
Script:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
RegExp: TRegExp;
i: integer;
begin
RegExp := TRegExp.Create(Form1.Edit1.Text);
RegExp.InputString := Form1.Memo1.Text;
if RegExp.Exec then
repeat
// matches
Form1.Memo2.Lines.Add( RegExp.Match[0] );
// groups
for i := 1 to RegExp.Match.Count-1 do
Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);
until not RegExp.ExecNext;
RegExp.Free;
end;
Project example: