///////TPhoneBook.FormCreate(Sender: TObject);UT,AN,glist:tstringlist;,k,n,i:integer;:Tinifile;.OnChange:=nil;.OnChange:=nil;:=extractfilepath(application.ExeName);not DirectoryExists (dir + text ) thennot CreateDir (dir + text ) then beginException.Create ( Can not Create Work Dir );
showmessage ( Можливо диск захищений від запису або немає відповідних прав доступу );
application.Terminate;;:=True;(dir);:=tinifile.create(dir+laquo;phones.pdbraquo;);
//завантаження груп телефонів:=tstringlist.create; .Clear; .Clear; fileexists (dir + groups.pdb ) then.LoadFromFile(dir+laquo;groups.pdbraquo;)(log,laquo;FileReadError(Groups.pdb)raquo;,laquo;FormCreateraquo;);;.AddItem(laquo;lt;Весь список gt; , nil); i:=0 to gList.Count - 1 do begin.AddItem (gList [i], nil) ;;. Free; .ItemIndex:=0;
//завантаження списку заміток (dir + text notes.lst , $ 00); FileExists (dir + text notes.lst ) then.LoadFromFile(dir+laquo;textnotes.lstraquo;);//:3(Log,laquo;FileAccessError(notes.lst)raquo;,laquo;FormCreateraquo;);;
//-------------------------------:=tinifile.Create(dir+laquo;PhoneBook.iniraquo;);:=tstringlist.create;:=tstringlist.create;.Clear;:=GetAllNotesNames;:=list.Items.AddChild(list.Items.GetFirstNode,laquo;*raquo;).AbsoluteIndex;
cfgini.writestring ( group , * , Нотатки які не використовуються ні в одній групі (Встановлено після невдалого видалення) );
UpdateNotesIcons; k:=0 to List.Items.Count - 1 don:=0 to An.Count - 1 do (list.items [k] .Text=AN [n]) then. add (an [n]); n:=0 to an.Count - 1 do beginUT.IndexOf (an [n])=- 1 then.Items.AddChild (list.Items [m], an [n]); ; .Free; .Free; list.Items [m] .Count lt; 1 then list.Items [m] .Delete; .Free;
//-------------------------------.loadCFG;.PageControl1.Update;;.OnChange:=GroupsChange;.OnChange:=PhonesChange;;
////////////////////////////////////////////////////////////////////////////////
//видалення групи телефонів
////////////////////////////////////////////////////////////////////////////////TPhoneBook.N2Click(Sender: TObject); i: integer;: tstringlist; groups.ItemFocused.Caption lt; gt; lt; Весь список gt; thenmessagedlg ( Ви дійсно хочете видалити групу + groups.ItemFocused.Caption + , mtConfirmation, [mbNo, mbYes], 0)=mrYes then begin.ItemFocused.Delete;:=tstringlist. create; .Clear; i:=1 to groups.Items.Count - 1 do begin.add(groups.Items[i].Caption);;(dir+laquo;groups.pdbraquo;,$00);.SaveToFile(dir+laquo;groups.pdbraquo;);
//запис логу при помилці (log, FileWriteError (Groups.pdb) , N2Click ) ;;. Free ;;;
////////////////////////////////////////////////////////////////////////////////
//завантаження телефонів відповідно до групою
////////////////////////////////////////////////////////////////////////////////LoadGroupPhones(Const Groupname: string); i, cur: integer;: tstringlist; .phones.OnChange:=nil;:=tstringlist.Create; phonebook do begin.Clear; .ReadSections (sec) ;. panels [1] .text:= laquo ; число записів: + inttostr (sec.Count); groups.ItemIndex=0 then begini:=0 to sec.Count - 1 do begin.Items.Add.Caption:=Sec[i];.Items[i].SubItems.Add(Ini.ReadString(Sec[i],laquo;n1raquo;,laquo;raquo;));.Items[i].SubItems.Add(Ini.ReadString(Sec[i],laquo;n2raquo;,laquo;raquo;));.Items[i].SubItems.Add(Ini.ReadString(Sec[i],laquo;n3raquo;,laquo;raquo;));.Items[i].SubItems.Add(Ini.ReadString(Sec[i],laquo;n4raquo;,laquo;raquo;));.Items[i].SubItems.Add(Ini.ReadString(Sec[i],laquo;n6raquo;,laquo;raquo;));.Items[i].SubItems.Add(Ini.ReadString(Sec[i],laquo;n5raquo;,laquo;raquo;));;;groups.itemindexgt;0 then begini:=0 to sec.Count - 1 do beginini.readstring (sec [i], n7 , )=GroupName then begin:=phones.Items.Add.Index;.items[cur].Caption:=sec[i];.items[cur].SubItems.Add(ini.readstring(sec[i],laquo;n1raquo;,laquo;raquo;));.items[cur].SubItems.Add(ini.readstring(sec[i],laquo;n2raquo;,laquo;raquo;));.items[cur].SubItems.Add(ini.readstring(sec[i],laquo;n3raquo;,laquo;raquo;));.items[cur].SubItems.Add(ini.readstring(sec[i],laquo;n4raquo;,laquo;raquo;));.items[cur].SubItems.Add(ini.readstring(sec[i],laquo;n6raquo;,laquo;raquo;));.items[cur].SubItems.Add(ini.readstring(sec[i],laquo;n5raquo;,laquo;raquo;));;;;(log,laquo;FileReadError(raquo;+ini.filename+laquo;)raquo;,laquo;LoadAllPhonesraquo;);;;.phones.OnChange:=PhoneBook.PhonesChange;;
////////////////////////////////////////////////////////////////////////////////
//завантаження всіх телефонів
////////////////////////////////////////////////////////////////////////////////LoadPhones;i:integer;:tstringlist;.phones.OnChange:=nil;:=tstringlist.Create;phoneboo...
