|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.07.2014, 15:45 | #1 |
Форумчанин
Регистрация: 04.08.2009
Сообщений: 101
|
'AnsiChar' and 'Char'
Не понимаю, вот это код на Д7 норма работает, а на Д2009 не хочет
код: procedure SetDecimalSeparator(Ch: Char); var DefLCID: LCID; Buffer: LPSTR; begin Application.UpdateFormatSettings := True; StrPCopy(Buffer, Ch); DefLCID := GetThreadLocale; if SetLocaleInfo(DefLCID, LOCALE_SDecimal, Buffer) then DecimalSeparator := StrPas(Buffer)[1]; Application.UpdateFormatSettings := False; end; компилятор дает ошибка: [DCC Error] Unit2.pas(256): E2010 Incompatible types: 'AnsiChar' and 'Char' |
11.07.2014, 16:02 | #2 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,881
|
StrPCopy вторым параметром требует Ansistring. А в Д2009+ Char = WideChar
Код:
|
11.07.2014, 16:06 | #3 |
Форумчанин
Регистрация: 04.08.2009
Сообщений: 101
|
Пробовал, все равно не работает
|
11.07.2014, 16:22 | #4 | |
Форумчанин
Регистрация: 04.08.2009
Сообщений: 101
|
Цитата:
[DCC Error] Unit2.pas(256): E2010 Incompatible types: 'AnsiChar' and 'Char' |
|
11.07.2014, 16:33 | #5 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,881
|
Unit2.pas(256)
А 256 строка это какая? |
11.07.2014, 16:35 | #6 |
Форумчанин
Регистрация: 04.08.2009
Сообщений: 101
|
Это строка у меня
procedure SetDecimalSeparator(Ch: AnsiChar); var DefLCID: LCID; Buffer: LPSTR; begin Application.UpdateFormatSettings := True; StrPCopy(Buffer, Ch); DefLCID := GetThreadLocale; if SetLocaleInfo(DefLCID, LOCALE_SDecimal, Buffer) then DecimalSeparator := StrPas(Buffer)[1]; Application.UpdateFormatSettings := False; end; Последний раз редактировалось mavlon_m; 11.07.2014 в 16:38. |
11.07.2014, 17:21 | #7 |
Форумчанин
Регистрация: 04.08.2009
Сообщений: 101
|
Проблема решено, сделал
var Buffer: Pwidechar; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Char и AnsiChar | Миледи | Общие вопросы Delphi | 3 | 09.05.2012 03:51 |
Записать Array of AnsiChar в Array of AnsiChar | Anton911 | Общие вопросы Delphi | 4 | 07.05.2012 21:58 |
ошибка AnsiChar | Кристинка89 | Общие вопросы Delphi | 5 | 21.02.2012 21:26 |
widechar VS. ansichar | virtuhay266 | Общие вопросы Delphi | 2 | 14.12.2011 09:10 |
Ошибка c AnsiChar & Char | Яр|/||< (^_^) | Общие вопросы Delphi | 3 | 19.02.2010 21:22 |