Цитата:
|
Сообщение от Electronic_Arts
Код:
procedure TRegistry.WriteStringList(const name: string; list: TStringList);
.....
{подготовим буфер к записи}
BufSize := 0;
for i := 0 to list.Count - 1 do
inc(BufSize, Length(list[i]) + 1);
inc(BufSize);
GetMem(Buffer, BufSize);
..... В результате ключ PagingFiles получает значение d:\pagef и все...??
в чем проблема то?? |
Видимо проблема в том, что в Delphi XE5 каждый символ строки занимает 2 байта, а размер буфера ты вычисляешь в символах, т.е. в 2 раза меньше необходимого.