|
|
#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' не могу понять почему? |
#2
|
||||
|
||||
Цитата:
Лишь предположение, но попробуй так: Код:
OemToCharBuff(PAnsiChar(OemStr), PAnsiChar(Result), Length(Result)); Google в помощь |
#3
|
|||
|
|||
Delphi уже не ругается
но все равно каракули |
#4
|
||||
|
||||
Цитата:
Код:
OemToAnsiBuff(PAnsiChar(OemStr), PAnsiChar(Result), Length(Result)); Google в помощь |
#5
|
|||
|
|||
увы! теперь другие каракули
|