Regex geht nicht mehr?

[ULIK]

Guten Morgen,

Zitat von Chefx:

Delphi-Quellcode:

//A fehlerquelle meinermeinung nach  
     if Match then
        begin
            repeat
              setlength(code,SubExpressionCount);
              code[High(code)] := SubExpressions[High(code)];
            until MatchAgain;
            result := verarbeitung(code,pos);
            end;
//B Ende

Ohne es selbst getestet zu haben: das Ganze schaut mir ziemlich suspekt aus:

• Welchen Wert hat SubExpressionCount im Debugger!
• was soll code[High(code)] := SubExpressions[High(code)]; eigentlich tun? Entweder ist SubExpressionsCount für jeden Treffer der RegExp neu definiert, dann überschreibst Du Dir aber ständig die Daten. Oder es wird durch das MatchAgain nicht verändert, dann schreibst Du aber immer nur Daten in den letzten Datansatz rein.
• Was auch immer Du mit dem Pos-Array vor hast: Momentan ist es nicht initialisert!
• Ist nun eine reine Vermutung, aber kann es sein, daß Du das hier haben willst:
  
  Delphi-Quellcode:

  SetLength(code, 0);  //Array initialisieren
  with TPerlRegEx.Create(nil) do
  ...
  if Match then
    begin
      repeat
        nOldIndex := Length(code);  // nOldIndex als integer deklarieren
        setlength(code, nOldIndex  + SubExpressionCount);  // Treffer um neu gefundene erweitern 
        for n := 0 to SubExpressionCount - 1 do
          code[nOldIndex + n] := SubExpressions[n];  // Neue Treffer in das code Array eintragen      
      until not MatchAgain; // und weitersuchen. Abbruch, wenn kein Treffer mehr
  
      result := verarbeitung(code,pos);  // jetzt ALLE Treffer verarbeiten
    end;

  So würde zumindest für mich der Aufbau einer Trefferliste Sinn machen.

Grüße,
Uli