Как прочитать базу данных с Досовским шрифтом.

Как прочитать базу данных с Досовским шрифтом

При старте приложения попробуй вызвать вот такую процедуру:

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.