Помогите разобраться.

[littlecoder]

Есть некая процедура :
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
SearchRec: TSearchRec;
begin
if Mask = '' then
Mask := '*.*';
if StartDir[Length(StartDir)] <> '\' then
StartDir := StartDir + '\';
if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
begin
repeat Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then
List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')thenbegin
List.Add(StartDir + SearchRec.Name + '\');
ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ScanDir('c:', '', ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

Как мне записать все значения в StringList, а потом каждую строку использовать как путь для открытия файла(Думаю использовать Win Api, будет оптімальнім вариантом для открытия файлов? ).
(Функция создает список всех файлов в каталоге.)

[littlecoder]

Ну вообще, лучше скажите , как из StringList кожную строку считать (отдельно) ибо это адреса файлов. Жду предложений.

[mihali4]

У вас, наверное, встроенный хэлп сломался?
Вроде там и примеров полно...
ListBox1.Selected[i]
ListBox1.Items.Strings[i]
Или просто скучно?

[littlecoder]

Всё , освоил.

[littlecoder]

Сообщение от littlecoder

Всё , освоил.

А, нет поспешил .
ВОт сотрите :
ScanDir('c:\', '', ListBox1.Items);
Как мне добавлять записи не в Listbox, а в Stringlis ?
Думал так :
//////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
StringList1 := TStringList.Create;
StringList1.AddObject('имя', TSTringList.Create);
TempStringList := TStringList(StringList1.Objects[0]);
ScanDir(ShellTreeview1.path, '', TempStringList.Add);
end;
////////
Подскажите , как результат ScanDir добавлять в Stringlist.
А потом сделать цикл
по добавлению каждой из строк (поотдельности)
тоисть ...
Memo1.Lines.Loadfrom???(А сюда прописать цыкл добавления строк из Stringlist).

[Квэнди]

автору предупреждение за название темы, уже 31 сообщение, пора научиться.
закрыто.