Как прочитать базу данных с Досовским шрифтом |
Previous Top Next |
При старте приложения попробуй вызвать вот такую процедуру:
Code: |
procedure SetLangForParadoxAndDBase; var p :TStringList; c :TConfigMode; begin p := TStringList.Create; c := Session.ConfigMode; Session.ConfigMode := cmSession; try p.Text := 'LANGDRIVER=ancyrr'^M^J'LEVEL=7'; Session.ModifyDriver('PARADOX',p); p.Text := 'LANGDRIVER=db866ru0'^M^J'LEVEL=7'; Session.ModifyDriver('DBASE',p); finally Session.ConfigMode := c; p.Free; end; end; |
©Drkb::02715
Взято с Vingrad.ru http://forum.vingrad.ru