Преобразование потока памяти с нулевым завершением в строку unicode

Question

В Delphi XE я беру данные CF_UNICODETEXT из буфера обмена. Результатом является поток, который заканчивается двумя нулевыми байтами. Чтобы получить фактическую строку, скопированную в буфер обмена, мне нужно удалить нули.

This similar so question содержит хороший способ преобразования из TMemoryStream в юникод строки в Delphi:

function MemoryStreamToString(M: TMemoryStream): string; 
begin 
    SetString(Result, M.Memory, M.Size div SizeOf(Char)); 
end; 

В моем случае, однако, это будет производить строку в том числе задней нулям. Я мог бы исправить это, ограничив размер:

... но это кажется уродливым, «особый случай». Интересно, есть ли более чистый способ закодировать это, чтобы кто-нибудь (я!), Смотрящий на код позже, не сразу спросил: «Почему трейлинг-символ выпадает из потока?»

Редактировать: Один из способов упредить вопрос - это добавить комментарий. Но, кроме этого?

Answer 1

Если цель CF_UNICODETEXT, вам нужно указать Юникод строку в частности:

// For old Delphi versions 
{$IFNDEF UNICODE} 
type 
    UnicodeString = WideString; 
{$ENDIF} 

// For CF_TEXT 
function MemoryStreamToAnsiString(M: TMemoryStream): AnsiString; 
begin 
    SetString(Result, M.Memory, M.Size); 
    if (Result <> '') and (Result[Length(Result)] = #0) then 
    SetLength(Result, Length(Result) - 1); 
end; 

// For CF_UNICODETEXT 
function MemoryStreamToUnicodeString(M: TMemoryStream): UnicodeString; 
begin 
    SetString(Result, M.Memory, M.Size div SizeOf(WideChar)); 
    if (Result <> '') and (Result[Length(Result)] = #0) then 
    SetLength(Result, Length(Result) - 1); 
end; 

// I'm not sure that you should use this form 
function MemoryStreamToString(M: TMemoryStream): String; 
begin 
    SetString(Result, M.Memory, M.Size div SizeOf(Char)); 
    if (Result <> '') and (Result[Length(Result)] = #0) then 
    SetLength(Result, Length(Result) - 1); 
end; 

Если вы 100% уверены, что строка нуля, то:

// For CF_TEXT 
function MemoryStreamToAnsiString(M: TMemoryStream): AnsiString; 
begin 
    SetString(Result, M.Memory, M.Size - 1); 
end; 

// For CF_UNICODETEXT 
function MemoryStreamToUnicodeString(M: TMemoryStream): UnicodeString; 
begin 
    SetString(Result, M.Memory, (M.Size div SizeOf(WideChar)) - 1); 
end; 

function MemoryStreamToString(M: TMemoryStream): String; 
begin 
    SetString(Result, M.Memory, (M.Size div SizeOf(Char)) - 1); 
end; 

Answer 2

Что случилось с Clipboard.AsText? Он делает все для вас без необходимости потоков, тыкая в байтах, имея дело с нулевыми терминаторы и т.д.

Что касается точного вопрос, который вы подняли, я бы просто написать:

SetString(Result, M.Memory, M.Size div SizeOf(Result[1]) - 1);