RegEx помогите с выражением

[Gregor]

Добрый день! Помогите с компонентом . не пойму в чем дело. не ищет следующее совпадение.
Код такой

var
  RegEx: TRegExpr;
  Name: string;
  Guid: string;
begin
  RegEx := TRegExpr.create;
  try
    RegEx.Expression := 'exec .+(@SessionID)=(''[A-Z0-9]{8}-([A-Z0-9]{4}-){3}[A-Z0-9]{12}''){1}';
    if RegEx.Exec(Memo1.Text) then
    begin
       repeat
        Name := RegEx.Match[1];
        Guid := RegEx.Match[2];
      until not RegEx.ExecNext;
    end

  finally
    FreeAndNil(RegEx);
  end;
end;

Сам текст

exec session_check @SessionID='EE8924C2-96AD-4CDD-B4FC-D18BC152CCB0'
exec session_check @SessionID='BB8924C2-11AD-4CDD-B4FC-D18BC152CCB0', @UserId='AA8924C2-22AD-4CDD-B4FC-D18BC152CCB0'

[Vapaamies]

Так вместо '(@SessionID)' должно стоять что-то вроде:

(@[A-Za-z_]+)

Кроме того, маска шестнадцатиричных цифр должна включать в себя [A-F], а не [A-Z].

[Gregor]

Но мне нужно именно @SessionId или @UserId. Ваш код в все равно ищет только первое вхождение и выходит

[SQLPowerUser]

Gregor, а я вчера привел решение. Вроде нормально работает
http://programmersforum.ru/showthread.php?t=279933

[Bob256]

var
  RegEx: TRegExpr;
  Name: string;
  Guid: string;
begin
  RegEx := TRegExpr.create;
  try
    RegEx.Expression := 'exec.*?''([A-Z0-9\-]+)''(.*?''([A-Z0-9\-]+)'')*';
    if RegEx.Exec(Memo1.Text) then
    begin
       repeat
        Name := RegEx.Match[1];
        Guid := RegEx.Match[3];
      until not RegEx.ExecNext;
    end
  finally
    FreeAndNil(RegEx);
  end;
end;

Но надо на флаги TRegExpr посмотреть, там возможны варианты.

[Gregor]

у вас этот код перебирает все вхождения?