Скачать: CL | DM;

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]);

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c