[MrDiG]

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

Ну, почти. Так у тебя утечка памяти будет, если ты не будешь результат очищать где-нибудь. Лучше TStringList создавать в вызывающем коде, после чего удалять там же. Ну и передавать в процедуру параметром.

А, хотя у тебя и этот код не будет работать. Ты же удаляешь StringList в конце функции, и программа использовать его уже не сможет.

Извиняюсь, но сильно туплю. Так? Сама ф-ция:

Код:

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

begin

  Reg := TRegExp.Create(Self);
  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;
      results.Add(VarToStr(sm[i]));
      Result:=results;

      end;

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

Вызов:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   html:String;
   images:TStringList;
   i:integer;
   results:TstringList;
begin
   html:=idHTTP1.Get('http://url.com');
   results := TStringList.Create;
   images:=MParse(html,'"<img src="(.*)"',results);

   for i := 0 to images.Count-1 do
    begin
    ShowMessage(images[i]);
    end;
end;