Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Вниз
Много файлов Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Память: 0.55 MB
Время: 0.042 c
