[Ildar-tsr]

Сообщение от Lilu-MAKS

Здравствуйте!
Есть функция
function OemToAnsiStr(const OemStr: string): string;
begin
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
{$IFDEF WIN32}
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
OemToAnsiBuff(@OemStr[1], @Result[1], Length(Result));
{$ENDIF}
end;

в Delphi 7 работала без проблем а в Delphi 2010
ругается на строке
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
E2010 Incompatible types: 'Char' and 'AnsiChar'
не могу понять почему?

Лишь предположение, но попробуй так:

Код:

OemToCharBuff(PAnsiChar(OemStr), PAnsiChar(Result), Length(Result));