Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Март 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 34
от 15.03.2005, 16:30

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 4

Вопрос № 18088: Привет! Подскажите пожалуйста как вывести информацию о клиентах по этапно Заренее благодарен....

Вопрос № 18088
Привет!
Подскажите пожалуйста
как вывести информацию
о клиентах по этапно
Заренее благодарен.

Приложение:

Отправлен: 10.03.2005, 16:20
Вопрос задал: Вячеслав (статус: Посетитель)
Всего ответов отправлено: 4
Отвечает: DSota
Здравствуйте, Вячеслав!
Вставить ожидание нажатия клавиши...

Приложение:

Ответ отправил: DSota (статус: Студент)
Отправлен: 10.03.2005, 16:53
Оценка за ответ: 5
Комментарий оценки:
OK.
Кратко и содержательно
Отвечает: Strory
Здравствуйте, Вячеслав!
Десять минут смотрел на вопрос как тупой баран (execuse my french), но не понял, что надо... :'(*)
Во-первых, считайте все записи в массив:
var
  DataBase: array [1..100] of KL;
{...}
i := 1;
While Not eof(f) do
  Begin
    Read(f,DataBase[i]);{Читаем компоненту файла}
    inc(i);
{...}
Ну а дальше "по этапно" в цикле с этим массивом рабоатете...
--
С уважением,
  Strory.
Ответ отправил: Strory (статус: Студент)
Отправлен: 10.03.2005, 17:12
Оценка за ответ: 5
Комментарий оценки:
OK.
Кратко и содержательно
Отвечает: michael91
Здравствуйте, Вячеслав!
Я не совсем понял вопрос:
Если вам нужно переспросить пользователя перед выводом на экран информации, то см. приложение. (Переспросить командами writeln и readkey)

Приложение:

Ответ отправил: michael91 (статус: 1-ый класс)
Отправлен: 10.03.2005, 18:23
Оценка за ответ: 5
Комментарий оценки:
OK.
Кратко и содержательно
Отвечает: sir henry
Здравствуйте, Вячеслав!
Что значит поэтапно? Нужно было задать критерий этапности. :)
Все что написано далее строится исключительно на предположении, что поэтапно - это за один раз вывести информацию из KL для одного клиента.
У Вас, в общем то, сделано все правильно, только Вы забыли сделать эту процедуру в цикле:
For i:=1 To Количество_записей_о_клиенте
Begin
Writeln(Name);{имя}
Writeln(Fam);{фамилия}
Writeln(Data.Day,'/',Data.Mon,'/',Data.Year);
Writeln(Tn);{Табельный номер}
end;
Более удобно в этом отношении работать с объектом TCollection. Это коллекция связаных записей какого угодно типа, вроде как динамический массив в Дельфи.
var
PKL: ^KL;
{Инициализация объекта}
TCollection.Init(Предполагаемое_кол-во_элементов, кол-во_эл-тов_для_добавления)
{Внесение новых записей}
For i:=0 to Сколько_Вам_нужно-1 do
Begin
New(PKL);
PKL^.Name:='Имя';
PKL^.Fam:='Фамилия';
{И так далее, все поля записи}
TCollection.Insert(PKL);
{Очередная запись в коллекции}
End;
Основное преимущество коллекций - мы имеем в памяти связанный список чего-либо без собственноручного написания кода для его построения. :)
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 11.03.2005, 05:52
Оценка за ответ: 5
Комментарий оценки:
OK.
Кратко и содержательно

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus		 Отписаться
В избранное