Herausfinden welcher String-Typ verwendet wird

[inc7]

Wie kann ich programmatisch herausfinden, welcher String-Typ (ShortString, AnsiString, WideString, UnicodeString) von einem deklarierten String oder vom System/Compiler verwendet wrid?

[Perlsau]

Wozu denn das? Schau doch einfach in deinem Code nach, welchen Stringtyp du verwendest ...

[himitsu]

Man mag es nicht glauben, aber möchte man zwei Typen/Typendeklarationen vergleichen, dann vergleicht man einfach deren Typen-Informationen.

Delphi-Quellcode:

if TypeInfo(String) = TypeInfo(AnsiString) then
  IstAnsiString;

if SizeOf(Char) = 1 then
  IstAnsiString;
if SizeOf(Char) = 2 then
  IstUnicodeString;

{$IFDEF UNICODE}
  IstUnicodeString
{$ENDIF}

{$IF CompilerVersion > 19.0}
  IstUnicodeString
{$IFEND}




// das sollte wohl nur in Delphi 1 und vierlleicht auch noch Delphi 2 zutreffen (k.A. wann das umgestellt wurde)
if TypeInfo(String) = TypeInfo(ShortString) then
  IstShortString;

z.B. JEDI und Andere haben auch eine INC-Datei dabei, wo für sowas entsprechende Compilerschalter erstellt werden.

[Popov]

Zitat von himitsu:

// das sollte wohl nur in Delphi 1 und vierlleicht auch noch Delphi 2 zutreffen

Soweit ich mich erinnern kann habe ich bei Delphi 2 gelesen, dass Strings nun aut. AnsiString sind, in Delphi 1 waren Strings aut. ShortStrings. Man konnte aber in Delphi 1 das per Compilerschalter umschalten. Ich kann mich deshalb daran erinnern, weil ich in einem D1 Projekt alles als AnsiStrings deklarieren mußte, weil sie länger als 256 Zeichen waren, später den Compilerschalter genutzt habe und in D2 alles wieder entfernt habe und mit normalen Strings arbeiten konnte.

[jbg]

Zitat von Popov:

Ich kann mich deshalb daran erinnern, weil ich in einem D1 Projekt alles als AnsiStrings deklarieren mußte

Da musst du aber eine andere Delphi 1 Version gehabt haben. Delphi 1 konnte nur ShortStrings und PChars. Erst mit Delphi 2 wurden AnsiStrings eingeführt.

[Popov]

Wie auch immer, gelesen habe ich es und in D3 ist String per Voreinstellung Ansistring. In diesem Fall habe ich das Projekt wohl schon mit D2 gemacht, also verschiebt sich die Aussage um eine Version nach oben.

[DeddyH]

IIRC war aber in Delphi 2 string schon Ansistring. Du musst wohl irgend etwas verwechseln.

[himitsu]

Ich hätte auch gedacht, daß mit der 16>32-Bit-Umstellung der neue String reingekommen ist.

[Popov]

Reingekommen schon, nur glaube ich mich zu erinnern, dass String noch ShortString war, man es aber umstellen konnte. Das weiß ich deshalb, weil ich da alles drüber gelesen habe, weil ich es brauchte. Kann aber auch sein, dass ich da versehentlich die VB Hilfe gelesen habe.