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

Много файлов   Найти похожие ветки 

← →
swordent ©   (2003-02-28 00:17) [0]

Люди, помогите разобраться. Задача такая: открыть все существующие файлы в папке и сохранить их(по алфавиту естестнно) в текстовый файл. Ну в файл то я и сам в состоянии сохранить, а вот как так всё это дело открыть... Помогите! Очень надо! Заранее спасибо.

---

← →
jack128 ©   (2003-02-28 01:12) [1]

кого сохранить в файл? название тех файлов в папке?
Для этого не нужно их открывать(см FindFirst/FindNext)

---

← →
PVOzerski ©   (2003-02-28 03:33) [2]

Только еще вот что:
с помощью FindFirst/FindNext надо бы получить файлы для связанного списка, потом этот список отсортировать по алфавиту, а уж потом сохранять.

---

← →
Skyle ©   (2003-02-28 04:34) [3]

Я чегой-то тоже не особо понимаю. Либо надо имена файлов сохранить, либо содержимое. В любом случае, сначала стоит создать список файлов, а потом уже их обрабатывать. Хранить, например, в TStringList. Там же его и отсортировать. Составлять список через FindFirst/FindNext, о чём уже говорилось.
Кстати, я надеюсь, что вопрос не подразумевает "как открыть файл"..:)

---

← →
Slym ©   (2003-02-28 08:34) [4]

Вот практически законченый код

const path="c:\"
var
sr:TSearchRec
StringList:TStringList;
begin
StringList:=TStringList.Create;
//Добавляешь файлы и папки
if FindFirst(path+"*.*",faAnyFile,sr)=0 then
StringList.Add(sr.Name);
while FindNext(sr)=0 do
StringList.Add(sr.Name);
StringList.sorted:=true;
StringList.SaveToFile("c:\sorted_list.txt");
StringList.Free;
end;


---

← →
Slym ©   (2003-02-28 08:35) [5]

Только расставь где нужно ; (в двух местах)

---

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

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



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