System.write in XE2

[himitsu]

Caste den Text nach String/AnsiString.


nachgesehn:

Delphi-Quellcode:

function _Write0Char(var t: TTextRec; c: AnsiChar): Pointer;
function _Write0Bool(var t: TTextRec; val: Boolean): Pointer;
function _Write0Long(var t: TTextRec; val: Longint): Pointer;
function _Write0String(var t: TTextRec; const s: ShortString): Pointer;
function _Write0CString(var t: TTextRec; s: PAnsiChar): Pointer;
function _WriteLString(var t: TTextRec; const s: AnsiString): Pointer;
function _WriteWString(var t: TTextRec; const s: WideString): Pointer;
function _Write0WChar(var t: TTextRec; c: WideChar): Pointer;
function _Write0Variant(var T: TTextRec; const V: TVarData): Pointer;  // Variant
...

ShortString ist der erste String-Typ (mehr als ein Zeichen), also wird dieser Typ für die Fehlermeldung verwendet.


Leider durfte ich auch schon mitbekommen, daß seit D2009 Delphi es nicht mehr hinbekommt sich zu entscheiden, wenn mehrer Stringtypen überladen sind und man eine "Konstante" direkt übergeben will.
Ich bin mir auch sicher, daß es dazu schon mehrere QC-Einträge gibt.