[SOLVED] VST add TStringList

[Pe3s]

Hello forum members, I would like to ask for help in completing the code that is to give the entire folder to the VST.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   Node: PVirtualNode;
4.   Data: PData;
5.   SL: TStringList;
6. begin
7.   if SelectDirectoryDialog1.Execute then
8.     SL := FindAllFiles(SelectDirectoryDialog1.FileName, '*.jpg', true);
9.     VST.Clear;
10.     VST.NodeDataSize := SizeOf(TData);
11.  
12.  
13.     Node := VST.AddChild(nil);
14.     Data := VST.GetNodeData(Node);
15.     Data^.PATH := ;
16.     Data^.FImage := ;
17.  
18.     SL.Free;
19. end;

[paweld]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var  
3.   Node: PVirtualNode;    
4.   Data: PData;    SL: TStringList;  
5.   i: Integer;
6. begin  
7.   if not SelectDirectoryDialog1.Execute then  
8.     exit;  
9.   SL := FindAllFiles(SelectDirectoryDialog1.FileName, '*.jpg', true);    
10.   VST.Clear;     VST.NodeDataSize := SizeOf(TData);    
11.   for i := 0 to sl.Count - 1 do  
12.   begin      
13.     Node := VST.AddChild(nil);    
14.     Data := VST.GetNodeData(Node);      
15.     Data^.PATH := sl[i];      
16.     Data^.FImage := ExtractFileName(sl[i]);    
17.   end;  
18.   SL.Free;
19. end;

[Pe3s]

@paweld, Thank you very much for your help