Regex geht nicht mehr?

[DeddyH]

Nochmal zum Verständnis:

Delphi-Quellcode:

var Wuppdi: array of TBlubb;
...
SetLength(Wuppdi,3);  //Länge auf 3 Elemente setzen
ShowMessage(IntToStr(Low(Wuppdi))); //ist bei dynamischen Arrays immer 0
ShowMessage(IntToStr(High(Wuppdi))); //ergibt 2, d.h. Index des letzten Elements

[edit] Oder mal zum Angucken:

Delphi-Quellcode:

var Bla: array of integer;
...
SetLength(Bla,3);
for i := Low(Bla) to High(Bla) do
  Bla[i] := 10;

Code:

| Index  |  0 |  1 |  2 |
| Inhalt | 10 | 10 | 10 |

[/edit]

[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!)

[DeddyH]

Delphi-Quellcode:

setlength(code,SubExpressionCount);
code[High(code)] := SubExpressions[High(SubExpressions)];

[Chefx]

oh stimmt ich war noch oben in der schleife

mir ist das ja schon richtig beinlich aber das funktioniert immer noch nicht so wirklich

irgend was stimmt immer noch nicht in der If-Anweisung !

[Chefx]

ach und der mekert an der zeile

Delphi-Quellcode:

 code[high(code)] := SubExpressions[High(Subexpressions)]; 
     //heist das nicht SubexpressionCount?

[DeddyH]

Achso, SubExpressions ist wohl kein dynamisches Array. Dann eben so:

Delphi-Quellcode:

code[High(code)] := SubExpressions[High(code)];

//oder

code[SubExpressionCount - 1] := SubExpressions[SubExpressionCount - 1];

[Chefx]

macht nichts!

das problem besteht immer noch ich bin mir wirklich sicher das nur hier irgendwo ein fehler ist weil immer wenn der Reg.Aus. wahr ist also wo If match ist true
dann kommt der Fehler!(Bin am verzweifel )

Hier nochmal mein ganzer Code:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses perlregex;

{$R *.dfm}

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;
  h:integer;
begin
  with TPerlRegEx.Create(nil) do
    begin
    try
      RegEx := expr;
      Subject := subj;
//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
      finally
      free;
      end;
   end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
edit1.Text:=regl(edit2.Text,'<*>');
end;

procedure PatchINT3;
var
  NOP : Byte;
  NTDLL: THandle;
  BytesWritten: DWORD;
  Address: Pointer;
begin
  if Win32Platform <> VER_PLATFORM_WIN32_NT then Exit;
  NTDLL := GetModuleHandle('NTDLL.DLL');
  if NTDLL = 0 then Exit;
  Address := GetProcAddress(NTDLL, 'DbgBreakPoint');
  if Address = nil then Exit;
  try
    if Char(Address^) <> #$CC then Exit;

    NOP := $90;
    if WriteProcessMemory(GetCurrentProcess, Address, @NOP, 1, BytesWritten) and
      (BytesWritten = 1) then
      FlushInstructionCache(GetCurrentProcess, Address, 1);
  except
    //Do not panic if you see an EAccessViolation here, it is perfectly harmless!
    on EAccessViolation do ;
    else raise;
  end;
end;

initialization

// nur wenn ein Debugger vorhanden, den Patch ausführen
if DebugHook<>0 then
   PatchINT3;
end.

[DeddyH]

Schau doch mal im Debugger, was in SubExpressions und SubExpressionCount eigentlich drinsteht. Außer, dass Du in Verarbeitung Result nicht initialisierst, sehe ich im Moment keinen Fehler (es ist aber auch schon spät am Abend).

[Chefx]

SubExpressions[Index: integer]:string;
SubExpressionCount : integer;

Und wie meinst du das mit dem initialisieren des result!
In verarbeitung ist doch alles soweit richtig?

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;

[DeddyH]

Setz mal lieber als erste Zeile hinter das "begin"Result := ''; [edit] Und ich meinte nicht die Definition, sondern zur Laufzeit nachschauen, was in den Feldern drin ist. [/edit]