gibt es Utf16 Äquivalente zu Ord und Chr

[himitsu]

Zitat:

Delphi-Quellcode:

function GetWideChr(const Code: word): WideChar;
var
  WChar: TWideChar;
begin
  WChar.Code := Code;
  Result := WChar.Value;
end;

function GetWideOrd(const Value: WideChar): integer;
var
  I: integer;
  WChar: TWideChar;
begin
  Result := -1;
  for I := 0 to 65535 do
  begin
    WChar.Code := I;
    if WChar.Value = Value then
    begin
      Result := I;
      Break;
    end;
  end;
end;

gekürzt:

Delphi-Quellcode:

function GetWideOrd(const Value: WideChar): Integer;
var
  WChar: TWideChar;
begin
  WChar.Value := Value;
  Result := WChar.Code;
end;

noch mehr gekürzt:

Delphi-Quellcode:

function GetWideChr(const Code: word): WideChar;
var
  WChar: TWideChar absolute Code;
begin
  Result := WChar.Value;
end;

function GetWideOrd(const Value: WideChar): Integer;
var
  WChar: TWideChar absolute Value;
begin
  Result := WChar.Code;
end;

noch bissl mehr:

Delphi-Quellcode:

function GetWideChr(const Code: word): WideChar;
begin
  Result := TWideChar(Code).Value;
end;

function GetWideOrd(const Value: WideChar): Integer;
begin
  Result := TWideChar(Value).Code;
end;

und jetzt total:

Delphi-Quellcode:

function GetWideChr(const Code: word): WideChar;
begin
  Result := WideChar(Code);  // oder Chr(Code) oder Char(Code) ... Beides natürlich erst ab D2009
end;

function GetWideOrd(const Value: WideChar): Integer;
begin
  Result := Ord(Value);
end;