Курсовая работа: Базы данных. Создание программы Телефонный справочник

sIniFile = 'options.ini';

sDataFileError = 'Ошибкаприработесбазойданных '+#10#13+'Проверьтеналичиифайлабазы!';

sBDEError = 'Ошибка работы с BDE!';

implementation

uses Teldov, Thread, ActiveX, ComObj, ShlObj;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

var

mess: tagmsg;

handled :boolean;

begin

try

IsCanStart := false;

Top := (Screen.Height - Height) div 2-200;

Left := (Screen.Width - Width) div 2;

Application.OnMessage := ProgressAOM ;

// созданиеярлыка, записьвреестр

try

Table1.TableName := sBuffFile;// Check BDE

Table1.CreateTable;

Table1.Close;

// ShowMessage(DBIgetErrorString);

DeleteFile(ExtractFilePath(ParamStr(0))+'/'+sBuffFile);

except

raise EPhoneException.Create(sBDEError); // error BDE

end;

if not SearchFile(sDataFile)

then raise EPhoneException.Create(sDataFileError);

if not SearchFile(sIndexFile)