[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 и обратно), то далее программа работает нормально.

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

[M.A.D.M.A.N.]

Есть какая-то ф-я типа StrSet, в нее передается пчар, а на выходе строка.
procedure _SetString(s: _PShortStr; buffer: _PAnsiChr; len: Byte);

[BorodaOleg]

Попробовал так:
SetString(s, str, Length(str)); вместо s:=AnsiString(Str);
Ничего не дало
Визуально строки полностью идентичны. Что там может быть....

[Aristarh Dark]

Как-то я не вижу смысла в этой функции.

[BorodaOleg]

Ну пока смысла действительно нет , позднее вставиться строка:

Код:

s := StringReplace(s, '<strong>', '/strong/', [rfReplaceAll]);

Проблема в том, что глючит даже если никаких изменений в строке не делается

[Bargest]

AnsiString прямо приводить к PAnsiChar можно, т.к. AnsiString - это тот же PAnsiChar, только еще перед самой строкой записана длина строки и еще немного всякой фигни. А вот обратно - не уверен, что делфи сама додумается вызвать конвертер в этом случае и дописать к PAnsiChar служебную информацию.

[Freeman]

Сообщение от BorodaOleg

Компилятор ошибок не выдает, но вот в процессе исполнения программы ошибки начинают сыпаться.

Потому что наружу передается строка, бывшая только что в стеке процедуры и исчезнувшая при выходе из нее. API, использующий PAnsiChar предполагает передачу буфера вызывающей стороной и запись в процедуре именно в него.

[lmikle]

Есть функция strPas, если ничего не путаю. Вот она из PChar делает String.

[Freeman]

Сообщение от lmikle

Есть функция strPas, если ничего не путаю.

Она для обратной совместимости, ее вызов эквивалентен SetString(StringVar, PCharValue, StrLen(PCharValue)).

Сообщение от lmikle

Вот она из PChar делает String.

А автор хочет наоборот -- из string в PChar, да еще по входному PChar. А PChar из PChar можно получить только как ссылку внутрь существующей строки, как делают StrScan, StrEnd и прочие.