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? Если дин. массив - то выделена ли для него память?

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