Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
8-29965
STANT
2002-11-27 17:22
2003.03.10
DirectX


1-29824
OlegM
2003-02-27 09:01
2003.03.10
Random


1-29906
Helg
2003-02-26 19:44
2003.03.10
Проблемы с математикой


8-29961
Nimda2000
2002-11-29 08:33
2003.03.10
Доступ к avi


9-29688
Jackson
2002-10-12 20:46
2003.03.10
Немного об ошибках





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский