TStringList. Поочередный вызов файлов из списка.

← →
MyNameIsVova (2003-01-13 17:10) [0]

Всем привет! У меня такой вопрос. Внизу процедура, которая ищет файлы в каталогах и заполняет найденными файлами TStringList. Помогите достать из TStringList первый файл, а потом по-очереди достать и другие. То есть, когда работу с первым файлом пользователь заканчивает, достается следующий файл из списка и т.д.

//ScanTree("C:\WINDOWS","*.txt"); procedure ScanTree(Directory, Mask: string); var Sch : TSearchRec; St: TStringList; current: String; i:Integer; begin St := TStringList.Create; if Directory[Length(Directory)] <> "\" then Directory := Format("%s%s",[Directory,"\"]); try if FindFirst(Directory + Mask, $10, Sch) = 0 then St.Add(Directory + Sch.Name); while FindNext(Sch) = 0 do St.Add(Directory + Sch.Name); finally FindClose(Sch); end; //Я не использую ListBox1, это всего лишь пример //for i:=0 to St.Count-1 do //Form1.ListBox1.Items.Add(St.Strings[i]); St.Free; end;

← →
still (2003-01-13 17:17) [1]

В чем проблема, не ясно. Поясни, плз.

← →
KSergey (2003-01-13 17:27) [2]

> end;
> //Я не использую ListBox1, это всего лишь пример
> //for i:=0 to St.Count-1 do
> //Form1.ListBox1.Items.Add(St.Strings[i]);
сюда вставить работу с St.Items[i]? об этом вопрос?
> St.Free;
> end;

Уточните в каком именно месте и какая проблема.
А может она в том, что после выполнения этой процедуры StringList"а просто не остается? Ну значит надо его не уничтожать, но и создавать, соотв. выше этой процедуры.

← →
MyNameIsVova (2003-01-13 17:33) [3]

Проблема в том, что я не умею доставать по-очереди файлы. А то, что такого рода доставание нужно поставить вместо

//Я не использую ListBox1, это всего лишь пример
//for i:=0 to St.Count-1 do
//Form1.ListBox1.Items.Add(St.Strings[i]);

то это ясно. Извините, что запутал.

← →
still (2003-01-13 17:46) [4]

ОТКУДА доставать?

← →
MyNameIsVova (2003-01-13 17:55) [5]

> ОТКУДА доставать?

Вот у меня в коде TStringList (St) заполнен именами файлов с путем: St.Add(Directory + Sch.Name);

Теперь нужно поочередно доставать имена файлов из него (St), а я не знаю как. Помогите.

← →
still (2003-01-13 18:09) [6]

вот так???
for i:=0 to St.Count-1 do
Form1.ListBox1.Items.Add(St.Strings[i]);

или еще раз задачу. доставать имена и ...?

TStringList. Поочередный вызов файлов из списка. Найти похожие ветки