Re: TTreeView
Вот и весь код, только надо помнить, что индекс в TStringList начинается с
нуля, поэтому и в TreeView1 индексы узлов лучше сделать с нуля, иначе
вылетаем на EXCEPT
procedure TForm1.TreeView1Click(Sender: TObject);
begin
_ListOfFiles.Free;
_ListOfFiles:=nil;
if _ListOfFiles=nil then
begin
_ListOfFiles:=TStringList.Create;
_ListOfFiles.LoadFromFile('list.txt');
end;
if TreeView1.Selected<>nil then
begin
memo1.Clear;
_CurrentIndex:=TreeView1.Selected.SelectedIndex;
try
if (FileExists(_ListOfFiles.Strings[_CurrentIndex]) and
(_CurrentIndex<=_ListOfFiles.Count)) then
begin
memo1.Lines.LoadFromFile(_ListOfFiles.Strings[_CurrentIndex]);
MEMO1.Refresh;
end
else begin
showmessage('File does not exists!')
end;
end;
except
showmessage('File does not exists!')
end;
end;
NP AEL Svitlana Zawadzka
mobile: +357-99-793-766
-----Original MessageFrom: Gift [mailto:Gi***@u*****.ru]
Sent: Monday, December 22, 2003 13:55
To: comp.soft.prog.prog
Hallo
Интересно бы было посмотреть на твой вариант
Если будешь слать код, то шли на ящик Gift@u*****.ru
Gift
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
