Generics nicht in SubRecords verfügbar.

[himitsu]

Delphi-Quellcode:

Type
  TRepleacer<Str> = Record
  Private
    _Data:  Array[-1..255] of Record
              Pos, Len: Integer;
              S:        Str;
            End;
    _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;

Bei Diesem meckert der Compiler folgender Maßen rum, in der Zeile

Delphi-Quellcode:

S: Str;

:

Zitat:

[DCC Fehler] RegEx.pas(232): E2029 '(' erwartet, aber ';' gefunden

So wie es aussieht will er hier die Prozedur Str erkannt haben.
Wie um himmels Willen kommt der Compiler darauf?
Dieses ist doch in 'ner "Deklaration" zu finden und steht nicht irgendwo im "Code".

Nja, also einfach umbenannt und schon kommt

Zitat:

[DCC Fehler] RegEx.pas(232): E2003 Undeklarierter Bezeichner: 'GenStr'

Ahhh, jetzt isses klar, der generische Typ wird einfach nicht weitergereicht.
Wieso nicht? :evil:

Und ja, ich werde jetzt den Record noch in einen weiteren generischen Typen verfrachten und hoffen es geht dann, aber muß denn immer alles so umständlich sein? :cry:

[USchuster]

Typparameter funktionieren offenbar nicht in anonymen Subrecords und Du kannst gern dafür einen QC Eintrag anlegen. Im Delphi.NET, welches immer für einen Vergleich gut ist, funktioniert dies auch nicht.

Zitat:

So wie es aussieht will er hier die Prozedur Str erkannt haben.
Wie um himmels Willen kommt der Compiler darauf?

Str ist eine eingebaute Prozedur und ein anderes Verhalten im Vergleich zu normalen (im Quelltext definierten) Prozeduren wundert mich daher nicht. Die Verwendung einer normale Prozedur führt korrekterweise zum Fehler E2007.

Ändere am besten den Code nach

Delphi-Quellcode:

  TReplacer<T> = record
  private
    type
      TData = array [-1..255] of record
        Pos, Len: Integer;
        S: T;
      end;
    var
      _Data: TData;
      _Count: Integer;
      _S: ^T;
  end;

Ich denke das war's was Du mit

Zitat:

Und ja, ich werde jetzt den Record noch in einen weiteren generischen Typen verfrachten und hoffen es geht dann, aber muß denn immer alles so umständlich sein?

meinst? Oder etwa nicht?

[himitsu]

OK, immerhin ein bissl besser, als mein doppelter Generic. :stupid:

Delphi-Quellcode:

TReplacer<T> = record
  type
    TData<T2> = array [-1..255] of record
      Pos, Len: Integer;
      S: T2;
    end;
  var
    _Data: TData<T>;
    _Count: Integer;
    _S: ^T;
end;

Wenn ich jetzt noch das generische Stringproblem hinbekomm, dann isses fast ideal.

[Dezipaitor]

Wenn der QC Eintrag dann gelöst ist, kannst du DelphiX2 kaufen, damit es funktioniert :)

[Namenloser]

[OT]Da ist ein K zu viel in der Überschrift.[/OT]

[himitsu]

Wo? :roll:

Nja, fehlerhafte Dinge darf man auch mit Fehlern schreiben. :stupid:

[mkinzler]

Frank verwendet halt eine kreative Rechtschreibung

[himitsu]

Ein bissl Individualität kann nie schaden. :angel2:


Ich versteh die Genericks "manchmal" nicht.

Jetzt sind och noch generische Konstruktoren verboten.

Zitat:

[DCC Fehler] RegEx.pas(654): E2528 Typparameter sind bei dieser Methode nicht erlaubt

Was für einen Sch*** haben die da eigentlich zusammengebastelt. :wall:

[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:

Delphi-Quellcode:

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

[Stevie]

Pointer auf generische Typparameter gehen nicht, warum erklärt Barry Kelly hier (erster Kommentar)

P.S.: Nen Tip: Vergiss Delphi 2010 für solche abenteuerlichen Generic Versuche, das bringt nur Ärger (ich spreche aus Erfahrung)