|
#1
|
|||
|
|||
OemToAnsi
Здравствуйте!
Есть функция 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' не могу понять почему? |