Форум по Delphi программированию

 



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.11.2011, 14:58
Lilu-MAKS Lilu-MAKS вне форума
Прохожий
 
Регистрация: 02.11.2011
Сообщения: 16
Репутация: 10
Вопрос 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  
Старый 11.11.2011, 15:05
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Цитата:
Сообщение от 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));
__________________
Google в помощь
Ответить с цитированием
  #3  
Старый 11.11.2011, 15:18
Lilu-MAKS Lilu-MAKS вне форума
Прохожий
 
Регистрация: 02.11.2011
Сообщения: 16
Репутация: 10
По умолчанию

Delphi уже не ругается
но все равно каракули
Ответить с цитированием
  #4  
Старый 11.11.2011, 15:21
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
Радость

Цитата:
Сообщение от Lilu-MAKS
Delphi уже не ругается
но все равно каракули

Код:
OemToAnsiBuff(PAnsiChar(OemStr), PAnsiChar(Result), Length(Result));
__________________
Google в помощь
Ответить с цитированием
  #5  
Старый 11.11.2011, 15:35
Lilu-MAKS Lilu-MAKS вне форума
Прохожий
 
Регистрация: 02.11.2011
Сообщения: 16
Репутация: 10
По умолчанию

увы! теперь другие каракули
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:47.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter