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

application.OnMessage := MainForm.progressAom;

WriteIni;

postMessage(MainForm.Handle, WM_CLOSE, 0, 0);

end;

procedure TPhoneForm.ReadIni;

begin

with TIniFile.Create(ExtractFilePath(Application.exename)+sIniFile) do

begin

table1.IndexName := IndexName[ReadInteger('Defaults','SortIndex', 0)];

Left := ReadInteger('Position','left', 100);

top := ReadInteger('Position','top', 100);

Height := ReadInteger('Position','height', 50);

end;

end;

function IndexOfItem(Item: string): integer;

begin

if Item = SortName[1] then result := 1

else if Item = SortName[2] then result := 2

else result := 0;

end;

procedure TPhoneForm.WriteIni;

begin

with TIniFile.Create(ExtractFilePath(Application.exename)+sIniFile) do

begin

WriteInteger('Defaults','SortIndex', IndexOfItem(Table1.indexName));

WriteInteger('Position','left', PhoneForm.left);

WriteInteger('Position','top', PhoneForm.top);

WriteInteger('Position','height', PhoneForm.height);

end;