Regex geht nicht mehr?

[Chefx]

Aber da ändert sich das porblem doch nicht?

Delphi-Quellcode:

function verarbeitung(code:array of string;pos:array of integer):string;
var
  i:integer;
begin
for i := low(code) to high(code) do
      result := result + code[i] + '|' + ',';
end;

function regl(subj, expr: string): string;
var
  code:array of string;
  pos:array of integer;
begin
  with TPerlRegEx.Create(nil) do
    begin
    try
      RegEx := expr;
      Subject := subj;

      if Match then
        begin
            repeat
              setlength(code,SubExpressionCount);
              code[SubExpressionCount] := SubExpressions[SubExpressionCount];
            until MatchAgain
        end;
        result := verarbeitung(code,pos);
      finally
      free;
      end;
   end;
end;

(ist heut anscheinend nicht mein Tag!)