Delphi regex sorunu

[alicilin]

Merhaba arkadaşlar,abiler ablalar...

Ben web programcısıyım. Kullandığım dil de php. Phpnin regex için yazılmış preg_**** fonksiyonları vardır. preg_match bu fonksiyonlardan birisi. Bende delphide böyle bir procedure oluşturup kullanmak istedim.

ve şu procedure 'ü yazdım;

Kod: Tümünü seç

procedure TForm1.match(Pattern,Text: string; const Matches: TStrings);
var
Regexpr : TRegEx;
Match   : TMatch;
begin
    Regexpr := TRegEx.Create(Pattern);
    Match := Regexpr.Match(Text);
    Matches.Clear;
    while Match.Success do
    begin
        Matches.Add(Match.Value);
        Match := Match.NextMatch;
    end;
end;

Herşey iyi hoş fakat bu prosedürü kullanırken şu şekilde kullanıyorum

Kod: Tümünü seç

match('Ali(.*?)Güler','Ali Fırat Güler',Memo1.Lines);

Ben burada sadece Fırat kısmını almak istiyorum fakat memo1 eSonuç olarak direk Ali Fırat Güler geliyor. Benim bildiğim bütün dillerde regex parametreleri aynı diye biliyorum. Ama delphide bir türlü düzgün bir regex deseni yazamadım.
yardımlarını için şimdiden teşekkür ederim

[alicilin]

Sorunumu kendim Çözdüm arkadaşlar. Prosedürümü şu şekilde değiştirdim oldu;

Kod: Tümünü seç

procedure TForm1.match(Pattern,Text: string; Group: integer; const Matches: TStrings);
var
Regexpr : TRegEx;
Match   : TMatch;
begin
    Regexpr := TRegEx.Create(Pattern,[roIgnoreCase,roMultiline]);
    Match := Regexpr.Match(Text);
    Matches.Clear;//
    while Match.Success do
    begin
        Matches.Add(Match.Groups.Item[Group].Value);
        Match := Match.NextMatch;
    end;
end;