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

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