Форум: "Базы";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];

Вниз

Проблема с кодировкой   Найти похожие ветки 

← →
comtat ©   (2006-05-04 13:08) [0]

на мускуле koi8-r и при
запросе выводит карякулы

коннект через классы uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers

как мона исправить на win1251 ??

---

← →
solenko ©   (2006-05-04 14:21) [1]

По идее должно помочь
SET NAMES CP1251

Буду очень благодарен, если Вы перешлете мне sys файл кодировки CP1251 на petrunich@visp.com.ua

---

← →
comtat ©   (2006-05-04 16:40) [2]

тема закрыта
вот решение

function ANSI2KOI8R(S: string): string;
var
 Ansi_CODE, KOI8_CODE: string;
 i: integer;
begin
 KOI8_CODE := "бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС-Ъ";
 ANSI_CODE := "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя°ё";
 Result := S;
 for i := 1 to Length(Result) do
   if Pos(Result[i], ANSI_CODE) > 0 then
     Result[i] := KOI8_CODE[Pos(Result[i], ANSI_CODE)];
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c