Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с кодировкой BDE [D5, dBase, FoxPro]

Samsonov Yuric © (2003-01-04 11:02:00)
Есть DBF таблица с текстовыми данными в которых есть украинские буквы. При просмотре програмами типа FoxPro, Norton Comander и аналогичными украинские буквы отображаються нормально. Если открывать таблицу в Delphi с помощью BDE украинские букві отображаются как бред. Как сделать так чтобы все было нормально.
Условия
1. Кодировка таблицы должна быть такой что бы она нормально смотрелась вышеуказанными програмами
2. При открытии таблицы не надо было делать перекодировку данных /таблица ОЧЕНЬ большая/ P.S. если перекодировка не ОЧЕНЬ сложная желательно подсказать

Соловьев (2003-01-09 10:42:00) [1]
Я тоже столкнулся с такой проблемой. решил ее с помощью компонента TDatabase+ODBC. В ODBC менеджере предварительно настроил алиас.

VICTOR_ (2003-01-08 19:51:00) [2]
Перекодировка 2

function ToUkr(s: String): String;
var u: Integer;
begin
u := StrPos("Ў", s);
while u <> 0 do begin s[u] := "І"; u := StrPos("Ў", s); end;
u := StrPos("ў", s);
while u <> 0 do begin s[u] := "і"; u := StrPos("ў", s); end;
Result := s;
end;

VICTOR_ (2003-01-08 19:49:00) [3]
Перекодировка буквы i

while Pos("і",s) > 0 do
begin
INSERT("i",s,Pos("і",s));
DELETE(S,Pos("і",s),1)
end;
while Pos("І",s) > 0 do
begin
INSERT("I",s,Pos("І",s));
DELETE(S,Pos("І",s),1)
end;

Jackal (2003-01-04 12:45:00) [4]
Попробуй указать:
Font/Charset = OEMCharset
Font/Name = Arial

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »