@USchuster:
Nee, ich glaub ich nehm doch eine externe Variante.
Nachdem ich jetzt die
Unit umgebaut und wieder kompilierbar hatte, da kam dieses raus:
[DCC Fataler Fehler] RegEx.pas(4250): F2084 Interner Fehler: URW1111
Allerdings meldete sich der Compiler hier erst nach dem
End. und ich brauchte eine Weile um es auf diese Zeilen zurückzuführen.
nun sieht es also so aus
Delphi-Quellcode:
TReplacerData<Str> = Array[-1..1024] of Record
Pos, Len: Integer;
S: Str;
End;
TReplacer<Str> = Record
Private
_Data: TReplacerData<Str>;
_Count: Integer;
_S: ^Str;
Public
Procedure Initialize(Var S: Str);
Procedure Repleace(Pos, Len: Integer; Const S: Str; Var DoOffset: Integer);
Function Finalize: Integer{Offset};
End;
TReplacer = TReplacer<String>;
TReplacerCP = TReplacer<CPString>;