Generics nicht in SubRecords verfügbar.

[himitsu]

@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>;