Ansistring , shortstring

[Redeemer]

Ich habe diverse Records aus relativ kurzen Strings, die Schlüssel von TDictionary sein können. Aus dem Grund muss ich ShortString benutzen. Damit ich trotzdem eine vollständige Unicode-Unterstützung habe, mache ich das so:

Delphi-Quellcode:

uses
  Windows;

type
  TMixed = record
    private
      procedure SetText(const Value: string);
      function GetText(): string;
      var
        FText: ShortString;
    public
      property Text: string read GetText write SetText;
      var
        Zahl: Integer;
  end;

procedure TMixed.SetText(const: Value: string);
begin
  ZeroMemory(@FText, SizeOf(ShortString);
  FText := UTF8Encode(Value);
end;

function TMixed.GetText(): string;
begin
  Result := UTF8ToWideString(FText);
end;

Das klappt nur mit WideStrings mit Length(UTF8Encode()) < 256 als notwendiger Bedingung.
Man könnte auch als hinreichende Bedindung prüfen, ob sie maximal 63 Zeichen Länge oder maximal 85 Length() haben (je nachdem, was zuletzt eintritt, sprich ein WideString mit Length()=120 ist OK, wenn es weniger als 63 Zeichen sind, aber die Anzahl der Zeichen in einem String zu bestimmen muss man jetzt auch nicht machen).