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

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

Application.OnMessage := ProgressAOM ;

// RegApplication;

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)

then DataThread.create(false)

else IsCanStart := true;

except

on E: Exception do

begin

MessageDlg(e.Message, mtError, [mbOk],0);

PostMessage(MainFOrm.Handle, MM_DATAERROR, 0, 0);

end;

end;

// FStartTime := GetTickCount;

Invalidate;

end;

procedure TMainForm.ProgressAOM (var MSG: tagMSG; var Handled: boolean);

begin