length(s) = 0 ODER s = '' ?

[himitsu]

Genaugenommen wird mir SetLength(S, 1) ein Array mit der Länge 2 erstellt, da dem String aus Kompatibilitätsgründen zu PChar noch eine #0 anhängt wird.

Und das bei LongStrings (AnsiString, WideString) ebenfalls mit der Zählung bei 1 beginnen, obwohl es das Längenbyte nicht mehr gibt, sollte ebenfalls allen bekannt sein - ist ja wegen der Kompatitär zu den "alten" ShortStrings.

Hier nochmal die genauen Definitionen der Stringtypen:

Delphi-Quellcode:

Type TShortStringInfo = packed Record
    Length: Byte;                                        <<< @VarOfThisType
    Chars: packed Array[1..Length(thisString)] of Char;
  End;

  TDynArrayInfo = packed Record
    //MemoryInfo: LongInt;
    RefCount:     LongInt;
    ElementCount: LongInt;
    Data:         packed Array[0..High(thisArray)] of {ArrayTyp};  <<< @VarOfThisType
  End;

  TAnsiStringInfo = packed Record
    //MemoryInfo: LongInt;
    RefCount:     LongInt;
    ElementCount: LongInt;
    Data:         packed Array[1..Length(thisString)] of AnsiChar;  <<< @VarOfThisType
    StringEnd:    AnsiChar;  <  ist immer #0
  End;

Code:

@ShortString         = TShortStringInfo/TShortStringInfo.Length
@DynArray            = TDynArrayInfo.Data/TDynArrayInfo.Data[0]
@String/@AnsiString  = TAnsiStringInfo.Data/TAnsiStringInfo.Data[1]

.MemoryInfo gehört eigentlich zum MemoryManager, aber da für jedes Array ein eigener Speicherblock reservert wird, ist das halt "immer" an dieser Stelle