Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

procedure TTreeViewForm.EditButtonClick(Sender: TObject); 

var 

CaptionStr:String; 

begin 

CaptionStr:=''; 

if not InputQuery('

Ввод имени

', 

'

Введите заголовок элемента

',CaptionStr) then exit; 

TreeView1.Selected.Text:=CaptionStr; 

end; 

 

---

OnClose ҳодисаси учун қуйидаги процедурани ёзамиз: 

 

procedure TTreeViewForm.FormClose(Sender: TObject; 

var Action: TCloseAction); 

begin 

TreeView1.SaveToFile(ExtractFilePath(Application.ExeName)+'

tree.dat

'); 

end; 

 

Дарахтни сақлаш учун SaveToFile усули чақирилади. Тўла йўлни кўрсатиш 

учун қуйидаги конструкциядан фойдаланилади: 

ExtractFilePath(Application.ExeName)+'tree.dat' 

Application.ExeName – файл номи. 

ExtractFilePath – файлга йўл. 

Энди  сақланган  маълумотларни  юклаш  учун  OnShow  ҳодисасини  қайта 

ишловчи қуйидаги процедура киритамиз: