function Rus(mes: string):string;
var
i: integer;
begin
for i:=1 to length(mes) do
case ord(mes) of
128..175 : mes := Chr(Ord(mes) + 64);
224..239 : mes := Chr(Ord(mes) + 16);
end;
rus := mes;
end;
Ох кодировки, кодировки :)
Проблема с кодировкой:
База находится в .dbf
для подключения к ней использую Microsoft Dbase Driver (*.dbf) в ODBC
в базе кодировка cp866 - база старая под D0S-м написанная
при подключении в DBGrid - естественно крокозяблы
Вопрос:
до того как перебил винду все было пучком.
не могу найти где в системе кодировку поменять
в реестре HLM\System\CurrentControlSet\Control\Nls\Codepage
пробовал 866 менял на cp_1251.nls
и 1252 менял на cp_1252.nls
Систему поставил сначала голую без сервиспаков. потом доставил SP2 и все заплатаки.
Не могу понять в чем дело. раньше все было кул.
Кто ни будь знает в чем может быть проблема?
[COLOR=Red]Название темы должно отражать суть вопроса, юмор уместен в разделе Отдохнем. Получаете нарушение -10.[/COLOR]
Может быть потому что в Windows русские буквы кодируются числами от 192 до 255,а в DOS - от 128 до 175 (А..Яа..п) и от 224 239 (р..я)? Точно не знаю, но нашёл такой код, может и поможет:
проблема была в настройках драйвера, которые установило DBE
по умолчанию по ставил в 866 и
поменял на 1251 и все кул :)