Typeinfo als Parameter

[uligerhardt]

Zitat von hanspeter:

In diesem Projekt wird sehr viel mit records gearbeitet.
Diese enthalten Shortstrings (z.B. String[40]).
Solche Records werden dann in Memory und/oder Filestreams abgelegt.

Um von den Ansistrings wegzukommen probiere ich mehrere Möglichkeiten.

Das Problem haben wir auch. Finde ich schwach vom Emba, dass sie keinen UnicodeString[N] eingebaut haben. Das wäre für den Compilerbauer IMNSHO um einiges leichter zu implementieren gewesen und mit besserem Ergebnis als eine drangefrickelte Lösung von dir oder mir.

Zitat von hanspeter:

Das bedeutet aber, dass für jede vorhandene Stringlänge ein eigener Datentyp declariert werden muss.

String[22] -> Fixstring22
String[40] -> Fixstring40
String[128] -> Fixstring 128 ...

Macht doch nix - dass lässt sich doch mit Suchen und Ersetzen gut lösen.

Zitat von himitsu:

Zitat:

FixStringXX

So weit war ich auch schon, aber leider sind da auch die Generics zu nix zu gebrauchen.
Und aus irgendwelchen Gründen wehren sich Alle gegen die Einführung von Makros, bzw. daß man Konstanten als "Parameter" in den Generics verwenden kann.

Delphi-Quellcode:

TFixString<Len> = record
  Value: array[0..Len-1] of Char;
  class operator implicit(const aValue: string): TFixString;
  class operator implicit(const aValue: TFixString): string;
end;

Da vermisse ich mal wieder C++ und Templates. Was in Delphi halbwegs als Ersatz geht, ist statt direkt der Größe einen Typ passender Größe zu übergeben:

Delphi-Quellcode:

TFixString<TMitPassenderLaenge: record> = record
  Value: array[0..SizeOf(TMitPassenderLaenge)-1] of Char; // Achtung: SizeOf liefert gelegentlich 0
  // oder
  Value: array[0..1] of TMitPassenderLaenge; // danach fleißig casten. :-(
end;

und

Delphi-Quellcode:

Str40 = string[40];
FixString40 = TFixString<Str40>;

oder

Delphi-Quellcode:

Arr40 = Array[0..39] of AnsiChar;
FixString40 = TFixString<Arr40>;

Nicht elegant, aber besser als nix.

[himitsu]

Sowas ginge auch, aber diese "brutalen" Castst machen keinen Spaß, vorallem Dank der massiven Bugs beim SizeOf. (dann lieber copy&paste)

Delphi-Quellcode:

TFixString<Arr> = record
  Value: Arr;
  class operator implicit(const aValue: string): TFixString;
  class operator implicit(const aValue: TFixString): string;
end;

//Arr40 = array[0..39] of WideChar;
//FixString40 = TFixString<Arr40>;
  FixString40 = TFixString<array[0..39] of WideChar>;

[uligerhardt]

Zitat von himitsu:

Sowas ginge auch, aber diese "brutalen" Castst machen keinen Spaß, vorallem Dank der massiven Bugs beim SizeOf. (dann lieber copy&paste)

Mit Delphi macht DRY manchmal keinen Spaß.