Скачать: CL | DM;

Как сделать корректным отображение украинского шрифта в 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 вся ветка

Скачать: CL | DM;



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