Парсинг SQl запроса

[Gregor]

Добрый день . Есть запрос

EXECUTE msdb.dbo.sp_help_alert @order_by = N'event_id DESC', @legacy_format = 1

Надо выдернуть параметры и их значения. т.е например legacy_format и его значение 1.

[Toxa]

так тут четкие метки прослеживаются
pos, posex, copy вам в руки

[SQLPowerUser]

Можно через TStringList

procedure TForm1.Button1Click(Sender: TObject);
var
  i, p: integer;
  s: string;
  lst: TStringList;
begin
  s := 'EXECUTE msdb.dbo.sp_help_alert @f   =   N''field2 asc'',   @idx   =  2,   @someParam  =  22';

  lst := TStringList.Create;
  try
    lst.Delimiter := ',';
    lst.QuoteChar := #39;
    p := Pos('@', s);
    if p < 1 then exit;

    s := Copy(s,p,length(s));
    s := StringReplace(s, 'N''', #39, [rfReplaceAll]);
    lst.DelimitedText := s;

    for i := 0 to lst.Count - 1 do
    begin
      s := lst[i];
      if (i mod 3 = 0) then
      begin
        StringGrid1.RowCount := StringGrid1.RowCount + 1;
        StringGrid1.Cells[0,StringGrid1.RowCount-1] := Copy(s,2,length(s));
      end;
      if (i mod 3 = 2) then StringGrid1.Cells[1,StringGrid1.RowCount-1] := s;
    end;

    StringGrid1.Cells[0,0] := 'Параметр'; StringGrid1.Cells[1,0] := 'Значение';
    StringGrid1.FixedRows := 1;
  finally
    lst.Free;
  end;
end;