[BorodaOleg]

Почему-то глючит перевод из PAnsiChar в AnsiString и обратно в PAnsiChar. Делаю так:

Код:

function ReplaceInnerComm(str: PAnsiChar): PAnsiChar;
var S : AnsiString;
    ac : PAnsiChar;
begin
  s:=AnsiString(Str);
  ac:= PAnsiChar(s);
  Result:=ac;
end;

Вызов по телу программы: FBuffer:=ReplaceInnerComm(FBuffer);

Компилятор ошибок не выдает, но вот в процессе исполнения программы ошибки начинают сыпаться. Если же в последней строчке функции поставить Result:=str; (то есть без перевода в AnsiString и обратно), то далее программа работает нормально.

Может кто сталкивался с такими глюками и знает как это обойти?