Как выделить строку UTF8 в стеке/куче?

Question

Как я могу выделить строку UTF8 в стеке/куче? Вот пример, который использует статический массив для его распределения. Однако массив заполнен "?" в отладчике. Нужно ли мне также учитывать кодовую страницу при распределении?

program Project1; 

procedure Main; 
var 
    Stack: Array[0..20] of AnsiChar; 
    Heap: PAnsiChar; 
begin 
    Stack := '漢語漢語漢語漢語'; 

    GetMem(Heap, 8 * SizeOf(AnsiChar)); 
    Move(PAnsiChar('漢語漢語漢語漢語')^, Heap^, 8 * SizeOf(AnsiChar)); 
end; 

begin 
    Main; 
end. 

С другой стороны, это работает нормально.

program Project1; 

procedure Main; 
var 
    S: UTF8String; 
begin 
    S := '漢語漢語漢語漢語'; 
end; 

begin 
    Main; 
end. 

Answer 1

Вы не можете убедить компилятор производить UTF-8 кодированный константу. Он будет предоставлять либо ANSI, либо UTF-16, но не UTF-8. Вам придется самому обрабатывать кодировку.

Это может выглядеть следующим образом:

procedure Main; 
const 
    utf8string: PAnsiChar = 
    #$E6#$BC#$A2#$E8#$AA#$9E#$E6#$BC#$A2#$E8#$AA#$9E + 
    #$E6#$BC#$A2#$E8#$AA#$9E#$E6#$BC#$A2#$E8#$AA#$9E + 
    #$00; 
var 
    Stack: array [0..24] of AnsiChar; 
begin 
    Move(Pointer(utf8string)^, Stack, SizeOf(Stack)); 
end; 

На самом деле, оказывается, что я был неправ. Вы можете убедить компилятор в константах кодирования UTF-8. Как это:

procedure Main; 
const 
    utf8str: UTF8String = '漢語漢語漢語漢語'; 
var 
    Stack: array [0..24] of AnsiChar; 
begin 
    Assert(Length(utf8str) + 1 = Length(Stack)); 
    Move(Pointer(utf8str)^, Stack, SizeOf(Stack)); 
end; 

Обратите внимание, что ваш массив был слишком коротким для текста после того, как он был UTF-8 закодирован.

Вы уже знаете, как выделить память в куче, поэтому мне не нужно это объяснять.