Delphi2009+ --> (Ansi)String[n]

[himitsu]

verwirrend ist es nur, weil EmCoBo unbedingt einem den Umstieg leicht machen wollte
und das möglichst ohne viel ändern zu müssen ... für ein Neuschreiben von Code finde ich das allerdings voll schrottig gelößt.

das normale AnsiSameStr ist in D2009 übrigens auch Unicode und nicht Ansi
usw.

PS: es gibt auch noch String(n) als Typen ... das gibt dann 'ne Art Codierung an


schade daß die Generics nur Typen und keine Konstanten annehmen,
sonst ginge die zweie Definition auch

Delphi-Quellcode:

Type
  TWideShortString255 = packed Record
  Private
    _Data: Array[0..255] of WideChar;
    Function  GetData(i: Word):   WideChar;  Inline;
    Procedure SetData(i: Word; C: WideChar); Inline;
    Function  GetLen:    Word;               Inline;
    Procedure SetLen (i: Word);              Inline;
  Public
    Property Data[Index: Word]: WideChar Read GetData Write SetData; Default;
    Property Len:               Word     Read GetLen  Write SetLen;
  End;

  TWideShortString<Size> = packed Record
  Private
    _Data: Array[0..Size] of WideChar;
    Function  GetData(i: Byte):   WideChar;
    Procedure SetData(i: Byte; C: WideChar);
    Function  GetLen:    Byte;
    Procedure SetLen (i: Byte);
  Public
    Property Data[Index: Byte]: WideChar Read GetData Write SetData; Default;
    Property Len:               Byte     Read GetLen  Write SetLen;
  End;

Function TWideShortString255.GetData(i: Word): WideChar;
  Begin
    Result := _Data[i];
  End;

Procedure TWideShortString255.SetData(i: Word; C: WideChar);
  Begin
    _Data[i] := C;
  End;

Function TWideShortString255.GetLen: Word;
  Begin
    Result := Word(_Data[0]);
  End;

Procedure TWideShortString255.SetLen(i: Word);
  Begin
    _Data[0] := WideChar(i);
  End;

// Achtung: ohne Fehlerbehandlung