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

end;

end;

end;

procedure DataThread.UpdateProgress;

var Persent: integer;

begin

with MainFOrm do

begin

Persent := trunc(100*(Table1.RecNo/Table1.RecordCount));

progressBar1.Position := Persent;

lbPersent.Caption := InttoStr (Persent)+ ' %';

end;

end;

procedure DataThread.RemaskMDX;

var

OldFile, NewFile: tFileStream;

Buffer : byte;

const index = 28;

begin

OldFile := TFileStream.Create(TempDir + sBuffFIle2, fmOpenRead or fmShareDenyWrite);

try

NewFile := TFileStream.Create( TempDir + sBuffFile,fmCreate or fmOpenWrite);

try

NewFile.CopyFrom(OldFile ,OldFile.Size);

NewFile.Position := index;

Buffer := 0;

NewFile.Write(Buffer, 1);

finally

FreeAndNil(NewFile);