Реферат Створення прикладних Windows-додатків

k do begin.Items.Clear; .ReadSections (sec) ;. panels [1] .text:= число запісе1: + inttostr (sec.Count); i:=0 to sec.Count - 1 do begin.Items.Add;.items[i].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;));;(log,laquo;FileReadError(raquo;+ini.filename+laquo;)raquo;,laquo;LoadPhonesraquo;);;;.phones.OnChange:=PhoneBook.PhonesChange;;

////////////////////////////////////////////////////////////////////////////////

//зміна телфонов

////////////////////////////////////////////////////////////////////////////////TPhoneBook.PhonesChange(Sender: TObject; Item: TListItem; Change: TItemChange); i: integer; .Clear; i:=0 to 100 do beginini.readstring (item.Caption, c + inttostr (i), @ ) lt; gt ; @ then.lines.Add(ini.readstring(item.Caption,laquo;craquo;+inttostr(i),laquo;raquo;));(log,laquo;FileReadError(raquo;+ini.filename+laquo;)raquo;,laquo;PhonesChangeraquo;);;;.SelStart:=0;.Sellength:=0;.Update;:=false;;

////////////////////////////////////////////////////////////////////////////////

//редагування телефону

////////////////////////////////////////////////////////////////////////////////TPhoneBook.edit_Execute(Sender: TObject); (phones.Focused) and (phones.selected lt; gt; nil) then begin.CreateForm (TChangePhone, ChangePhone); changePhone.showmodal=mrOk then begin (groups.Selected.Caption) ;;. Free ;;;

////////////////////////////////////////////////////////////////////////////////

//видалення телефону

////////////////////////////////////////////////////////////////////////////////TPhoneBook.delete_Execute(Sender: TObject); attr: integer; phones.Focused thenmessagedlg ( Ви дійсно хочете видалити + phones.ItemFocused.Caption +

, mtConfirmation, [mbNo, mbYes], 0)=mrYes then begin:=filegetattr(ini.FileName);(ini.FileName,$00);.EraseSection(phones.ItemFocused.Caption);(ini.FileName,attr);

//LoadAllPhones(groups.Selected.Caption);.ItemFocused.Delete;(log,laquo;FileWriteError(raquo;+ini.filename+laquo;)raquo;,laquo;delete_executeraquo;);

end ;;;

////////////////////////////////////////////////////////////////////////////////

//редагування телефону

////////////////////////////////////////////////////////////////////////////////

procedure TPhoneBook.PhonesDblClick (Sender: TObject); phones.ItemFocused lt; gt; nil then edit_.Execute ;;

////////////////////////////////////////////////////////////////////////////////

//створення телефону

////////////////////////////////////////////////////////////////////////////////TPhoneBook.new_Execute(Sender: TObject) ;. CreateForm (TNewPhone, NewPhone); NewPhone.ShowModal=mrOk thengroups.itemIndex gt; 0 then (groups.items [groups.itemIndex] .Caption) (groups.items [0] .Caption);

NewPhone.free ;;

////////////////////////////////////////////////////////////////////////////////

//нова група телефонів

////////////////////////////////////////////////////////////////////////////////TPhoneBook.N1Click(Sender: TObject); newstr: string;: integer;: tstringlist;:=InputBox ( Нова група телефонів , Введіть назву групи , ); newstr lt; gt; then begin.Items.add.Caption:=newstr;:=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;);.Free;(log,laquo;FileWriteError(Groups.pdb)raquo;,laquo;N1Clickraquo;);;;(log,laquo;NewGroupErrorraquo;,laquo;N1Clickraquo;);;;

////////////////////////////////////////////////////////////////////////////////

//активація форми

////////////////////////////////////////////////////////////////////////////////TPhoneBook.FormActivate(Sender: TObject); Change (self) ;. Items [0] .selected:=true; phones.Items.Count gt; 0 then.Items[0].selected:=true;(groups.Selected.Caption);.Update;(phones,phones.Column[0]);.Update;.Realign;.Realign;.Realign;.Realign;.Realign;.Realign;.Realign;.Realign;

//splitter1.Align:=alBottom; not _f then begin.ItemIndex:=_ II;

...