Как правильно выделить буфер для приёма строки от WinApi функции

[GunSmoker]

Так, кажется, это не всем очевидно. Тогда поясню.

Нуль-терминированность строк в Delphi документирована и поэтому её использовать можно. Но не так, как это делаешь ты. Проблема в том, что ты указываешь функции буфер больше, чем у тебя есть.

Например, пусть в GetWindowCaption передали не валидный описатель (окно удалилось в аккурат в момент между получением описателя и вызовом GetWindowCaption для этого описателя). Тогда твой вариант первой строчкой установит длину результата в 0, т.е. Result будет равен nil.

Поскольку на ошибки ты не проверяшь, то будет выполняться вторая строчка. Тут проблема сидит ещё до вызова функции. С включенным range checking у тебя выбьет исключение при вычислении Result[1]. С выключенным range checking функция вызовется с указателем = nil и длинной = 1.

Это означает, что ты наврёшь функции (ты сказал, что у тебя есть 1 символ в буфере, а на самом деле буфера вообще нет). И если вдруг функция захочет обнулить буфер до начала всех работ, то ты схлопочешь Access Violation.

У моего варианта указанных проблем нет. Хотя обработку ошибок добавить не помешает.

[Пепел Феникса]

У моего варианта указанных проблем нет. Хотя обработку ошибок добавить не помешает.

ну вообще тут правильно добавить проверку ошибок.
и бросать исключения.
минимум должна быть на ошибку и нулевой капш.

я любил этот код тем что он не изменяет длины строки в итоге.(если конечно кэпшн не стал короче)

function GetWindowCaption(Handle: HWND): String;
var len:integer;
begin
  SetLastError(0);
  SetLength(Result,0);
  len:=GetWindowTextLength(Handle);
  if GetLastError<>0 then //как там исключения бросать, забыл напрочь уже
  if len>0 then
   begin
    SetLength(Result,len);
    SetLength(Result,GetWindowText(Handle,@Result[1],Length(Result)+1));
   end;
end;

примерно так.

хотя, разве приведение к PChar не даст nil в случае пустой строки?(длина 0)

[GunSmoker]

я любил этот код тем что он не изменяет длины строки в итоге

Да, это плюс, но поскольку в Delphi-программах используется менеджер памяти, то это не имеет большого значения. Изменения на -1 байт почти всегда просто приводят к изменению счётчика длины выделенной памяти, без перераспределения.

хотя, разве приведение к PChar не даст nil в случае пустой строки?(длина 0)

PChar никогда не даёт nil.

var 
  S: String;
  P: Pointer;
begin
  S := '';
  P := Pointer(S); // P = nil
  P := PChar(S); // P = @(#0)
end;

[Пепел Феникса]

PChar никогда не даёт nil.

хм, ну тогда можно сделать так если что, тогда будет один байт буфера и будет все ок.

[c0mp]

Спасибо всем за развёрнутый ответ!