Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с файлами, что делать? диплом горит, помогите. pls 
:(
    Опции темы
Sega
Дата 26.5.2005, 11:13 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Суть вот в чем:
есть папка, в нее записываются файлы, как они есть, их надо перебрать по порядку там, типа readln, но я же не знаю имена файлов, как быть с этим? пожалуйста можно побыстрей, диплом горит, заранее огромное спасибо
smile
  Вверх
Snowy
Дата 26.5.2005, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Смотри примеры по FindFirst, FindNext
PM MAIL   Вверх
Sega
Дата 26.5.2005, 11:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Гуд спасибо а что как параметр передаётся?
  Вверх
Snowy
Дата 26.5.2005, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Это не параметр.
Открой в дельфи хелп.
Найди FindFirst.
Нажми на слово Example.
Там тебе будет полный пример по перебору файлов.
PM MAIL   Вверх
Rrader
Дата 26.5.2005, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
http://forum.vingrad.ru/index.php?showtopi...=1&hl=findfirst

То же самое из FAQ


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Sega
Дата 26.5.2005, 13:00 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Дядьки гуру, findfirst и findnext они имя файла возврашают?
  Вверх
Snowy
Дата 26.5.2005, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Они много чего возвращают.
Но тебе-то нужно только имя файла.
PM MAIL   Вверх
Sega
Дата 26.5.2005, 13:45 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасибо, оно надеюсь в стринге возвращается?
  Вверх
~FoX~
Дата 26.5.2005, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Они структуру возвращают.....один параметр которой Name - это и есть имя файла.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Snowy
Дата 26.5.2005, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код

var
  sr: TSearchRec;
  t:  TextFile;
  s:  string;
begin
    if FindFirst('*.*', faArchive, sr) = 0 then // начинаем поиск файлов
    begin
      repeat
        if (sr.Attr and faArchive) = sr.Attr then // если это обычный файл, то
        begin
          AssignFile(t,sr.Name); Reset(t); // открываем файл
          while not eof(t) do // читаем от начала до конца
          begin
            ReadLn(t,s); // читаем каждую строку
            // тут мы чего-то делаем со строками...
          end;
        end;
      until FindNext(sr) <> 0; // ищем следующий файл, если таковой имеется
      FindClose(sr); // Завершаем поиск файлов
    end;
end;

Добавлено @ 17:22
Цитата
Они структуру возвращают.....

Они ее не возвращают, а заполняют ее поля.
Структуру ты сам должен предоставить.
PM MAIL   Вверх
Alex
Дата 26.5.2005, 19:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
http://vingrad.ru/DELPHI-DLP-002507


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Петрович
Дата 27.5.2005, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55
Цитата(Snowy @ 26.5.2005, 12:16)
Смотри примеры по FindFirst, FindNext


Цитата(Sega @ 26.5.2005, 12:34)
Гуд спасибо а что как параметр передаётся?


Цитата(Snowy @ 26.5.2005, 12:44)
Нажми на слово Example.
Там тебе будет полный пример по перебору файлов.


Цитата(Sega @ 26.5.2005, 14:00)
Дядьки гуру, findfirst и findnext они имя файла возврашают?


Цитата(Sega @ 26.5.2005, 14:45)
Спасибо, оно надеюсь в стринге возвращается?


Блин. Serge, ты F1 нажать-то можешь? Или ты только вопросы задавать умеешь?


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
~FoX~
Дата 27.5.2005, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Цитата(Snowy @ 26.5.2005, 18:19)
Они ее не возвращают, а заполняют ее поля.
Структуру ты сам должен предоставить.

Ну я это и имел ввиду, прошу прощения не правильно выразился.
Вот описание структуры:

Код

 TSearchRec = record
    Time: Integer;
    Size: Integer;
    Attr: Integer;
    Name: TFileName;
    ExcludeAttr: Integer;
    FindHandle: THandle;
    FindData: TWin32FindData;
end;



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0819 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.