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

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

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

Как сделать корректным отображение украинского шрифта в dbf? [D5, D6, dBase, FoxPro, Paradox]

Filat © (2002-08-28 11:19:00)
Привет ALL! Как сделать корректным отображение украинского шрифта в *.dbf и потом также корректно записать в *.db.
Заранее благодарен.
P.S. Вроде когда то задавали такой вопрос, но в своих архивах не нашёл:((

VICTOR_ (2002-08-28 15:50:00) [1]
1. Проверь LANGDRIVER в BDE для DBASE
dBASE RUS cp866
2. Используй конвертор

function Convert(locName);
var
i;
begin
i := Pos( "Ў", locName );
while i <> 0 do begin
locName := Copy( locName, 1, i-1 ) + "І"+Copy( locName, i+1, 255 );
i := Pos( "Ў", locName )
end;
i := Pos( "ў", locName );
while i <> 0 do begin
locName := Copy( locName, 1, i-1 ) + "і"+Copy( locName, i+1, 255 );
i := Pos( "ў", locName )
end;
i := Pos( "Ї", locName );
while i <> 0 do begin
locName := Copy( locName, 1, i-1 ) + "Є"+Copy( locName, i+1, 255 );
i := Pos( "Ї", locName )
end;
i := Pos( "ї", locName );
while i <> 0 do begin
locName := Copy( locName, 1, i-1 ) + "є"+Copy( locName, i+1, 255 );
i := Pos( "ї", locName )
end;
i := Pos( "#", locName );
while i <> 0 do begin
locName := Copy( locName, 1, i-1 ) + "ї"+Copy( locName, i+1, 255 );
i := Pos( "#", locName )
end;
I := Pos( "Ђ", LocName );
While i <> 0 Do Begin
LocName := Copy( LocName, 1, i-1 ) + "№"+Copy( LocName, I+1, 255 );
I := Pos( "Ђ", locName );
End;
Result := locName
end;

Filat (2002-08-28 14:12:00) [2]
Вместо украинских i и i с двумя точками отображаются # или ещё что-нибудь.

RDA (2002-08-28 12:56:00) [3]
А какие проблемы в отличии от русского.

Наверх

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