Скачать: CL | DM;

TTreeView   Найти похожие ветки 

← →
Артём   (2005-08-21 19:27) [0]

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) [1]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.032 c