| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TTreeView [D7, WinXP]

Артём ©   (2005-08-21 19:27:00) 

procedure TForm1.FormCreate(Sender: TObject);
   var ProgDataDir:string;FFRec:TSearchRec;
    begin
    {Начало поиска}
      ProgDataDir:='C:\ArtPicture\Video\Data\*.ini';
     t:=FindFirst(ProgDataDir,faAnyFile,FFRec);
     i:=0;
     while t=0 do
      begin
       Root[i]:=RzTreeView1.Items.Add(nil,FFRec.Name);
  После этой строки не работает Form1.Label1.Caption:='1';
       RzTreeView1.Items.AddChild(Root[i],'');
       t:=FindNext(FFRec);
       inc(i);
      end;
     FindClose(FFRec);

    end;
Почему после этого не присваиваются занчения переменным типа String ???

---

TUser   (2005-08-21 20:29:00) [1]

Что такое Root? Если дин. массив - то выделена ли для него память?

---

Наверх