Форум: "Базы";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
ВнизКак сделать корректным отображение украинского шрифта в dbf? Найти похожие ветки
← →
Filat (2002-08-28 11:19) [0]Привет ALL! Как сделать корректным отображение украинского шрифта в *.dbf и потом также корректно записать в *.db.
Заранее благодарен.
P.S. Вроде когда то задавали такой вопрос, но в своих архивах не нашёл:((
← →
RDA (2002-08-28 12:56) [1]А какие проблемы в отличии от русского.
← →
Filat (2002-08-28 14:12) [2]Вместо украинских i и i с двумя точками отображаются # или ещё что-нибудь.
← →
VICTOR_ (2002-08-28 15:50) [3]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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c