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

while not Table1.eof do

begin

for i:= 0 to Table1.FieldCount - 1 do

begin

prom := Table1.Fields[i].asString;

Table2.Fields[i].AsString := Table1.Fields[i].asString;

end;

Table1.next;

Table2.Append;

Inc(j);

If j > 1000 then

begin

SynchroNize(UpdateProgress);

j := 0;

end;

end;

Table1.Close;

Table2.Close;

CopyFile(PChar(TempDir + sDataFile),

PChar(ExtractFilePath(Application.ExeName)+ sDataFile), false );

CopyFile(PChar(TempDir + sIndexFile),

PChar(ExtractFilePath(Application.ExeName)+ sIndexFile), false );

DeleteFile(TempDir + sBuffFile);

DeleteFile(TempDir + sBuffFile2);

DeleteFile(TempDir + sDataFile);

DeleteFile(TempDir + sIndexFile);

FreeMem(TempDir, MAX_PATH);

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

except