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

function SearchFile(FileName: string): boolean;

public

{ Public declarations }

end;

type EPhoneException = class (Exception);

var

MainForm: TMainForm;

tick: cardinal;

IsFirst : boolean = true;

const

sDataFile = 'Data.dbf';

sIndexFile = 'Data.mdx';

sBuffFile = 'DataBuff.dbf';

sBuffFile2 = 'DataBuff2.dbf';

sShortappname = 'LutskPhone';

sIniFile = 'options.ini';

sHelpFile = 'help.hlp';

sDataFileError = 'Ошибка при работе с базой данных '

+#10#13+'Проверьте наличии файла базы!';

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

implementation

uses TelDov, Thread, ActiveX, ComObj, ShlObj;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

begin

try

IsCanStart := false;

// FStartTime := $FFFFFFFF;

// Application.HelpFile := sHelpFile;