Версия для печати темы

Автор: Clerick 1.10.2006 20:32

Возник вопрос: как при работе с текствоыми файлами, ввести в программу имена сразу несколько файлов, зная что они есть в данной папке, но не вводить их имена с клавиатуры, а искать их в папке?

К примеру, в папке есть 15 файлов, среди них, допустим, три текстовых. Программа должна распознать формат файла и работать только с текстовыми. Как это реализовать?

Автор: klem4 1.10.2006 20:52

Поиск -> "FindFirst" либо "FindNext"

либо Учебник -> (модуль DOS - работа с каталогами и файлами)

Автор: Clerick 1.10.2006 21:48

Спасибо!

Автор: Clerick 2.10.2006 18:22

Просьба пояснить код..

uses dos;
var
  DirInfo: SearchRec;  {Что это за тип переменных?}
  s: string;
begin
  readln(s); { например, '*.pas' }
  FindFirst(s, Archive, DirInfo); {как понять эту строку???}
  while DosError = 0 do {Что значит DosError}
  begin
    Writeln(DirInfo.Name); {DirInfo.name ???}
    FindNext(DirInfo);
  end;
end.

И как в дальнейшем эти найденные файлы можно "засунуть" в программу?

Автор: klem4 2.10.2006 20:19

Хелп в Паскале не работает ?

Переписывать текст от туда сюда нету ни малейшего желания.

Автор: Clerick 2.10.2006 23:30

Блл...н, совсем забыл..