Как прочитать базу данных с Досовским шрифтом
Материал из DRKB
Как прочитать базу данных с Досовским шрифтом[править | править код]
При старте приложения попробуй вызвать вот такую процедуру:
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;
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 02715