REGEX mit TMatchCollection

[shebang]

Zitat von wschrabi:

Delphi-Quellcode:

if matches.Count > 0 then
  begin
    if match.Groups.Count>1 then

Die Counts der Gruppen sind immer 0!

Das liegt daran, dass du hier auf match statt auf matches zugreifst.

[wschrabi]

Zitat von shebang:

Zitat von wschrabi:

Delphi-Quellcode:

if matches.Count > 0 then
  begin
    if match.Groups.Count>1 then

Die Counts der Gruppen sind immer 0!

Das liegt daran, dass du hier auf match statt auf matches zugreifst.

Nein, wenn ich matches.Groups.Count mache kommt ein Compiler Fehler. (siehe BILD)
ABer etwas stimmt, ich muss die IF in die loop reintun.

EIN TREFFER wäre lt. der REGEX: 6.1 (3, 8)
im TEXT die Zeile 14.3
Die Regex müßte aber passen, doch wieso ist Groups immer 0. Was hat es mit den Bug - wie berichtet auf sich?
Besten DANK

[shebang]

Du kannst das Ganze etwas vereinfachen, deine for-Schleife fängt den Fall, dass es keine Matches gibt schon ab:

Delphi-Quellcode:

for match in matches do begin
  if match.Groups.Count < 3 then Continue;

  mainToken := match.Groups[1].Value;
  subTokens := match.Groups[2].Value;
  if subTokens <> '' then
    Result:= mainToken+' ('+ subTokens+ ')'
  else
    Result:= mainToken;
end;

Deine RegEx enthält aber nur eine Capturing Group und eine Non-capturing Group, es wird also nie mehr als 2 Groups geben können.
Beschreibe doch bitte mal, was deine RegEx eigentlich erreichen soll.