Delphi tilida

Procedure TTreeViewForm.AddButtonClick(Sender: TObject); 

203 

CaptionStr: 
NewNode:TTreenode; 
begin 
CaptionStr:=”; 
if not InputQuery('BBO,n h m ch h ', 'BBe^HTe 3ar0Ji0B0K 

Agar OK tugmasi bosilmagan bo‘lsa protseduradan chiqiladi: 

if not InputQuery(...) then 
exit; 
Keyingi qator yangi element qo‘shadi: 
NewNode:=TreeViewl.Items.Add(TreeViewl.Selected, CaptionStr); 
TreeViewl komponentasining Items xossasida hamma elementlar 

204 

Bu protseduraning oldingisidan farqi AddChild usuli qollan- 
ganligidir. Bu usulda avlod element qo‘shadi. Qo‘shilgan element 
ajdodi joriy elementdir. 
'Y^ajiHTt' tugmasi uchun protsedura: 
if TreeViewl.SelectedOnil then 
TreeViewl .Items.Delete(TreeViewl.Selected); 
Oldiniga ajratilgan element daraxtda mavjudligi tekshiriladi: 

 
 
 
 
 
", 
 
 
 

205 

OnClose hodisasi uchun quyidagi protsedurani yozamiz: 
Procedure TTreeViewForm.FormClose(Sender: TObject; 
var Action: TCloseAction); 
begin 
TreeViewl.SaveToFile(ExtractFilePath(Application.ExeName) 
+'tree.dat'); 
end; 
Daraxtni saqlash uchun SaveToFile usuli chaqiriladi. To‘la yolni 
ko‘rsatish uchun quyidagi konstruksiyadan foydalaniladi: 
ExtractFilePath(Application.ExeName)+ ' tree.dat' 
Application.ExeName —fayl nomi. 
ExtractFilePath — faylga yo‘l. 
Endi saqlangan ma’lumotlami yuklash uchun OnShow hodisasini 
qayta ishlovchi quyidagi protsedurani kiritamiz: