System.write in XE2

[Mavarik]

Hallo Zusammen!

Ich muss gerade feststellen, dass System.Write einen Shortstring erwartet..

Bedeutet:

system.write(F,'Das ist ein toller Text'); // <--- Fehler Shortstring erwartet Also jedemmal mit ShortString('XXX') casten...

Ist das nicht eine inkonsequente Umsetztung?

Mavarik

[p80286]

Da xe2 wohl bei Strings immer von 16Bit-Char ausgeht, würde ich sagen "das nervt ist aber verständlich"

Gruß
K-H

[Mavarik]

Zitat von p80286:

Da xe2 wohl bei Strings immer von 16Bit-Char ausgeht, würde ich sagen "das nervt ist aber verständlich"

Gruß
K-H

Nöö wieso kann ich keine Unicode-String mit write schreiben?

Mavarik

[p80286]

Ich geh davon aus, daß da der gute alte Pascalstring hinter steckt, also in [0] die Längenangabe und dann der eigentliche Inhalt. mit einem Move(mystring[1],pascalstring[1],#bytes) solltest du auch die 16Bitter schreiben können, eben nur mit einen max. Länge von 127.
(passt dann eigentlich das CRLF noch????????)

Gruß
K-H

[himitsu]

Wieso ShortString?
Ich war der Meinung das Ding war immer schon AnsiString,
und bei der Umstellung auf Unicode hat man daran nichts geändert.
Aus Faulheit Kompatibilitätsgründen, damit wir bei der Unicode-Umstellung keine Probleme bekommen.

(genauso wie AnsiSameText jetzt standardmäßig Unicode und kein ANSI spricht )


Man kann dort keinen EncodingParameter angeben und da früher alle Dateien immer als ANSI gespeichert wurde, wurde dieses Verhalten nicht verändert.
Früher der WideString und nun auch der UnicodeString wurden daher schon immer nach ANSI konvertiert.

[bernau]

Nicht konsequent, aber in gewisser Weise verständlich.


Mit AssignFile(F, aFilename); gebe ich an, daß Write in eine Textdatei schreiben soll. Wie ist diese Textdatei den Kodiert? Wäre fatal, wenn auf einmal alle erzeugten Textdateien nicht mehr 8BitAnsi sind.

[Mavarik]

Zitat von himitsu:

Wieso ShortString?

Ja genau das war doch die Frage...

Delphi sagt mir das ein System.Write(F,...

Als 2. Parameter einen Shortstring erwartet!

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