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

private

procedure RemaskMDX;

protected

TempDir: PChar;

procedure Execute; override;

procedure UpdateProgress;

procedure UpdateForm;

end;

implementation

procedure DataThread.Execute;

var

i, j: integer;

prom: string;

begin

freeOnTerminate := true;

with MainForm do begin

try

Synchronize(UpdateForm);

GetMem(TempDir, MAX_PATH);

GetTempPath(MAx_Path,TempDir);

CopyFile(PChar(ExtractFilePath(Application.ExeName)+sDataFile),

PCHar(TempDir + sBuffFile2), true );

RemaskMDX;

Table2.TableName := TempDir + sDataFile;

Table1.TableName := TempDir + sBuffFile;

Table1.Open;

Table2.CreateTable;

Table2.Open;

Table2.Edit;