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

Материал из 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