Почему-то глючит перевод из 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 и обратно), то далее программа работает нормально.
Может кто сталкивался с такими глюками и знает как это обойти?