Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

русский язык   Найти похожие ветки 

← →
windows   (2004-05-12 18:22) [0]

есть таблица table.dbf. При её просмотре в DBGrid вместо русских букв - "#". Манипуляции с BDE не помогают, русский шрифт появляется только после изменения Table Language через Database Desktop. Как программно установить русский язык в таблице?

---

← →
KillOfCats   (2004-05-12 18:29) [1]

Через какой компонент ты осуществляешь доступ к странице?

---

← →
KillOfCats   (2004-05-12 18:31) [2]

К ТАБЛИЦЕ

---

← →
KillOfCats   (2004-05-12 18:35) [3]

Попробуй таблицу подключить через компонент Table

---

← →
windows   (2004-05-12 18:40) [4]

ну так я ttable и использую

---

← →
sniknik ©   (2004-05-12 18:45) [5]

procedure ChangeLangDriver(DatabaseName, TableName, LDName: string);
var
 TblExt: string;
 Database: TDatabase;
 TblDesc: CRTblDesc;
 OptDesc: FLDDesc;
 OptData: array [0..250] of Char;
 Cur: hDBICur;
 Rec: CFGDesc;
begin
 if (TableName="") or (LDName="") then raise Exception.Create("Unknown TableName or LDName");
 Database:=Session.OpenDatabase(DatabaseName);
 try
   if Database.IsSQLBased then raise Exception.Create("Function ChangeLangDriver working only with dBase or Paradox tables");
   FillChar(OptDesc, SizeOf(OptDesc), #0);
   FillChar(TblDesc, SizeOf(TblDesc), #0);
   StrCopy(OptDesc.szName, "LANGDRIVER");
   OptDesc.iLen:=Length(LDName)+1;
   with TblDesc do begin
     StrPCopy(szTblName, TableName);
     TblExt:=UpperCase(ExtractFileExt(TableName));
     if TblExt=".DBF" then StrCopy(szTblType, szDbase)
     else if TblExt=".DB" then StrCopy(szTblType, szParadox)
     else begin
       AnsiToOEM(StrPCopy(OptData, DatabaseName), OptData);
       if DbiOpenCfgInfoList(nil, dbiREADONLY, cfgPersistent, StrPCopy(OptData, "\DATABASES\"+StrPas(OptData)+"\DB INFO\"),Cur)<>DBIERR_NONE
         then raise Exception.Create("Unknown table type");
       try
         while DbiGetNextRecord(Cur, dbiNOLOCK, @Rec, nil)<>DBIERR_EOF do
           if StrComp(Rec.szNodeName, "DEFAULT DRIVER")=0 then begin
             StrCopy(szTblType, Rec.szValue);
             Break;
           end;
       finally
         Check(DbiCloseCursor(Cur));
       end;
     end;
     iOptParams:=1;
     pfldOptParams:=@OptDesc;
     pOptData:=@OptData;
   end;
   StrPCopy(OptData, LDName);
   Check(DbiDoRestructure(Database.Handle, 1, @TblDesc, nil,nil, nil, False));
 finally
   Session.CloseDatabase(Database);
 end;
end;


вызов

ChangeLangDriver(понятно, понятно, "cyrr"{db866ru0});

---

← →
windows   (2004-05-12 18:49) [6]

это процедура из советов Озерова? Она у меня отлично вешает программу, но язык при этом не меняет

---

← →
sniknik ©   (2004-05-12 18:59) [7]

эту я когдато сам писал, (переписывал) в основном выдрав из хелпа борланда (похоже не только я так ;о) если оно узнаваемо).
у меня и сейчас работает.

---

← →
LaidBack   (2004-05-12 19:44) [8]

А подобрать правильную кодировку визуально поможет Abidesktop:
http://www.degisy.com/download.php

---

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

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.048 c