TRegex und Capture Groups

[Der schöne Günther]

Eine dumme Frage. Ist das normal dass das Pattern an sich auch in der "Capture-Group" mit drinsteckt?

Folgendes Beispiel:

Delphi-Quellcode:

program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils, System.RegularExpressions;

procedure regexTest();
const
   pattern: String = '(?''name''Delphi|C\+\+)-*(?''ort''\w+)';
   subject: String = 'Ich gehe heute in die Delphi-Praxis. Danach auf den Delphischrottplatz. Und vielleicht in die C++-Bar.';
var
   regex: TRegex;
   match: TMatch;
   group: TGroup;
begin
   regex := TRegex.Create(pattern);

   for match in regex.Matches(subject) do begin
      WriteLn('Match: '+match.Value.QuotedString());
      for group in match.Groups do
         WriteLn('   '+group.Value.QuotedString());

      WriteLn('Der Name ist '+match.Groups['name'].Value.QuotedString() );
      WriteLn('Der Ort ist '+match.Groups['ort'].Value.QuotedString() );

      WriteLn(sLineBreak);

   end;

end;

begin
   regexTest();
   ReadLn;
end.

Ergibt:

Code:

Match: 'Delphi-Praxis'
   'Delphi-Praxis'
   'Delphi'
   'Praxis'
Der Name ist 'Delphi'
Der Ort ist 'Praxis'


Match: 'Delphischrottplatz'
   'Delphischrottplatz'
   'Delphi'
   'schrottplatz'
Der Name ist 'Delphi'
Der Ort ist 'schrottplatz'


Match: 'C++-Bar'
   'C++-Bar'
   'C++'
   'Bar'
Der Name ist 'C++'
Der Ort ist 'Bar'

Ich hätte den jeweils ersten Eintrag bei den Gruppen nicht erwartet.

[himitsu]

Wieso nicht?

Das ist der Treffer für den kompletten Ausdruck
und dann folgen die geklammerten Untergruppen.

Stell dir einfach nochmal eine implizite Klammer/Gruppe, um alles drumrum, vor.
'((?''name''Delphi|C\+\+)-*(?''ort''\w+))';
Es ist praktisch das, was man auch finden würde, wenn in der Anfrage garkeine Klammern vorkommen würden.

[Der schöne Günther]

Hm weil ich dachte... Der komplette Ausdruck ist der Match selber. Den habe ich ja schon in Match.Value . Und die Gruppen darin sind unter Match.Groups .

Zitat von himitsu:

Stell dir einfach nochmal eine implizite Klammer/Gruppe, um alles drumrum, vor.

Verstehen tue ich es, Ich finds nur komisch. Ich wollte nur fragen, ob Delphi (XE5) das so richtig macht. Wenn du sagst das g'hört so, gebe ich mich dem vertrauensvoll hin.

[himitsu]

Delphi macht hier praktisch garnichts.

Die benutzten einfach einen externen Perl-kompatiblen RegEx-Code und diese sollte schon richtig funktionieren.

[Der schöne Günther]

Naja, also ich brauche nur das Internet nach Delphi und TRegex zu befragen und finde mehrere Bugs, der letzte Fix grade jetzt in XE6. Mein vollstes Vertrauen habe ich darin nicht unbedingt