- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
var
ucsString:UCS4String;
WStr:WideString;
begin
SetLength(ucsString,2);
ucsString[0]:=UCS4Char($2660);
ucsString[1]:=UCS4Char(0);
WStr:=UCS4StringToWideString(ucsString);
Memo1.SelText:=WStr;
MessageBoxW(0, PWideChar(WStr), 0, 0);
end;
Комментарии (2) RSS