Показать сообщение отдельно
Непрочитано 03.08.2005, 16:48   #6
KpeHgeJIb
Мужской Заслуженный
 
Аватар для KpeHgeJIb
 
Регистрация: 10.02.2003
Адрес: Израиль
Цитата (flashg) »
Так можно сделать чтобы не самому вбивать персон а взять из заранее набитого текстового файла и чтобы фильтрация осуществилась по этому текстовому файлу. Если да то как?
Да, можно. Содержимое файла надо считать. Я не буду писать тебе готовый алгоритм, дойди до него сам.
Но подсказки могу дать. И так Для того чтоб начать считывать данные из уже существующего файла, нужно открыть его с помощью Reset, а затем считать из него данные используя Read или Readln. Это почти тоже самое что читать с клавиатуры, но только в Read и Readln первым параметром передается файловая переменная.
Тоесть если есть файловая переменная f и строка s
Код:
Var
   f:Text;
   s:string;
то
Код:
begin 
  Assign(f, 'Drive:\Path\filename.ext');
  Reset(f);
  Readln(f,s);
...
end.
Считает первую строчку из файла.

Также удели внимание функции Eof которая возвращает True когда дстигнут конец файла и False в противном случае. В купе с циклом While эта функция позволит прочитать файл до конца, а не только N значений как это делает for.
Вот впринципе и вся информация к размышлению.

Последний раз редактировалось KpeHgeJIb; 03.08.2005 в 16:50.
KpeHgeJIb вне форума  
Конфигурация ПК
Ответить с цитированием