'AnsiChar' and 'Char'

[mavlon_m]

Не понимаю, вот это код на Д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'

[northener]

StrPCopy вторым параметром требует Ansistring. А в Д2009+ Char = WideChar

procedure SetDecimalSeparator(Ch: AnsiChar);

Вот так будет работать и в Д7 и в Д2009+

[mavlon_m]

Пробовал, все равно не работает

[mavlon_m]

Сообщение от northener

StrPCopy вторым параметром требует Ansistring. А в Д2009+ Char = WideChar

procedure SetDecimalSeparator(Ch: AnsiChar);

Вот так будет работать и в Д7 и в Д2009+

Ошибка остается без изменение:
[DCC Error] Unit2.pas(256): E2010 Incompatible types: 'AnsiChar' and 'Char'

[northener]

Unit2.pas(256)
А 256 строка это какая?

[mavlon_m]

Сообщение от northener

Unit2.pas(256)
А 256 строка это какая?

Это строка у меня

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]

Проблема решено, сделал
var Buffer: Pwidechar;