Mam pytanko: ładuję listę pików z okreslonego katalogu do TTreeView (FileTree) wg następującej procedury:
procedure OdczytKatalogDanych;
var
FR,DR:TSearchRec;
FoundFolder,FoundFile:integer;
IniFile:TiniFile;
DataFolder:string;
TreeItem:integer;
begin
FileTree.Items.Clear;
IniFile:=TIniFile.Create(Ldws_MainFrm.ConfigFile);
DataFolder:= IniFile.ReadString('Program','DataDir',ExtractFileDir(Application.ExeName)+'\Data');
IniFile.Free;
FoundFolder:=FindFirst(DataFolder + '*.*', faDirectory, DR);
while FoundFolder=0 do
begin
if ((DR.Attr and faDirectory) = faDirectory) and ((DR.Name <> '.') and (DR.Name <> '..')) then // sprawdza, czy pozycja jest katalogiem
begin
FileTree.Items.Add(FileTree.Selected, DR.Name);
TreeItem:=FileTree.Items.Count-1;
FoundFile:=FindFirst(DataFolder + ''+DR.Name+'*.ldt', faAnyfile, FR);
while FoundFile=0 do
begin
FileTree.Items.AddChild(FileTree.items[TreeItem],FR.Name);
FoundFile:=FindNext(FR);
end;
FindClose(FR);
end;
FoundFolder:=FindNext(DR);
end;
FindClose(DR);
end;
no i ładuje ładnie się wyświetla ale gdy przejdę do innej zakładki to po ponownym przejściu na zakładkę gdzie jest ten TreeView (lista plików) nie ma nic.
Co może być nie tak, może coś nie wiem?
Pozdrawiam