Ошибка с SetLength применительно в PChar

[Celestia]

Здравствуйте, друзья! Помогите пожалуйста, никак не пойму в чём может быть проблема:

function TModelContainer.ReadString(Stream: TStream): string;
var I : Integer;
begin
  Stream.Read(I, SizeOf(I));
  SetLength(Result, I);
  Stream.Read(Result[1], I);
end;

function TModelContainer.ReadPChar(Stream : TStream) : PChar;
var R : Integer;
begin
  Stream.Read(R, SizeOf(R));
  SetLength(Result, R);
  Stream.Read(Result[1], R);
end;

первая функция работает на ура, а вторая выдаёт ошибку на строчке SetLength(Result, R);

ошибка такая:

[DCC Error] Unit2.pas(2305): E2197 Constant object cannot be passed as var parameter

[GunSmoker]

В ДНК.

Читать до полного просветления.

[mss]

В ДНК

Подтверждаю диагноз.

[Celestia]

О, как мы невхерственно круты) прям щас заплачу в восторге от вашего остоумия)))

Я спрашивал у АДЕКВАТНЫХ людей а не у вас

[chertovich]

PChar это указатель на символ. Он не может изменять свой размер. Он показывает на первый символ, а остальная строка получается поиском символа #0

Пробуй так:

function TModelContainer.ReadPChar(Stream : TStream) : PChar;
var R : Integer;
begin
  Stream.Read(R, SizeOf(R));
  GetMem(Result, R);
  Stream.Read(Result^, R);
end;

[mss]

Адекватные люди на то и адекватные, что адекватно реагируют на неадекватные вопросы неадекватных людей.

прям щас заплачу

Да, проплачься-просморкайся - и бегом читать справку.
Адекватные ее читают.

[Celestia]

mss, это был сарказм, гений ты наш)

[Celestia]

chertovich большое спасибо))