Заполнить StringGrid из дерева

[artemavd]

Попробовал. А как удалить после чисел символы "_" и "."? И как записать путь к файлу в ячейку? Брать его из ListBox?

[Mad_Cat]

как удалить после чисел символы "_" и "."

s1:='400_8_212861.pdf';
s:=s1;
srgd1.cells[0,1]:=copy(s,1,pos('_',s)-1);
delete(s,1,pos('_',s));
srgd1.cells[1,1]:=copy(s,1,pos('_',s)-1);
delete(s,1,pos('_',s));
srgd1.cells[2,1]:=copy(s,1,pos('.',s)-1);
srgd1.cells[5,1]:=s1;

Брать его из ListBox?

можно и оттуда

[artemavd]

Вот, пытаюсь сделать циклом, но как обычно не получается

procedure TForm1.Button1Click(Sender: TObject);
var
 s,s1: string;
 i,j,k: integer;
begin
 for i:=0 to Form1.ListBox2.Items.Count - 1 do
 begin
  s1:=IntToStr(i);
  s:=s1;
  for j:=1 to Form1.RzStringGrid1.RowCount - 1 do
  begin
   Form1.RzStringGrid1.Cells[0,j]:=Copy(s,1,Pos('_',s)-1);
    Delete(s,1,Pos('_',s));
   Form1.RzStringGrid1.Cells[1,j]:=Copy(s,1,Pos('_',s)-1);
    Delete(s,1,Pos('_',s));
   Form1.RzStringGrid1.Cells[2,j]:=Copy(s,1,Pos('.',s)-1);
    Delete(s,1,Pos('_',s));
   Form1.RzStringGrid1.Cells[5,j]:=s1;
  end;
 end;
end;

выводит в четвертую колонку цифру "9" во всех строках. ХЗ откуда он ее берет.
в ListBox2 хранятся полные пути к файлам. Поправьте меня плиз?

P.S. файлов будет около 5000 в папке. Думаю, что нужно еще и поток организовать. А как не знаю.

[Mad_Cat]

Поправьте меня плиз?

ппц)

var j:integer;
s,s1:string;
begin
for j:=0 to Form1.ListBox2.Items.Count - 1 do
  begin
 s1:=listbox2.items[j];
 while pos('\',s1)<>0 do
delete(s1,1,pos('\',s1));
s:=s1;
   Form1.RzStringGrid1.Cells[0,j+1]:=Copy(s,1,Pos('_',s)-1);
    Delete(s,1,Pos('_',s));
   Form1.RzStringGrid1.Cells[1,j+1]:=Copy(s,1,Pos('_',s)-1);
    Delete(s,1,Pos('_',s));
   Form1.RzStringGrid1.Cells[2,j+1]:=Copy(s,1,Pos('.',s)-1);
    Delete(s,1,Pos('_',s));
   Form1.RzStringGrid1.Cells[5,j]:=s1;
end;
end;

[artemavd]

ппц)

Спасибо, дружище, выручил