[MrDiG]

Сообщение от DJ PhoeniX

TStringList тебя спасёт.

Как-то так?

Код:

function TForm17.MParse(page, pattern: string): TstringList;
var
  Reg: TRegExp;
  mc: MatchCollection;
  m: Match;
  sm: SubMatches;
  i:Integer;
  s:string;
  results:TstringList;


begin

  Reg := TRegExp.Create(Self);
  results := TStringList.Create;
  try
    //Reg.Pattern := 'name="s" value="(.*)"';
    s:=page;
    Reg.Pattern:=pattern;
    Reg.IgnoreCase:=true;
    Reg.Global:=true;
    Reg.Multiline:=true;
    mc:=Reg.Execute(s) as MatchCollection;
    for I := 0 to mc.Count - 1 do  begin
      m:=mc[i] as Match;
      sm:=m.SubMatches as SubMatches;
      ShowMessage(VarToStr(sm[i]));
      results.Add(sm[i]);
Result:=results;

      end;

  finally
    m:=nil;
    sm:=nil;
    mc:=nil;
    Reg.Free;
results.Free;
  end;
end;