VPF::Помогите с сортировкой в файле

piv

Дата 27.6.2004, 16:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.6.2004

Репутация: нет
Всего: нет

Помогите с программой. Может у кого нибудь есть исходник чего-нибудь подобного, а то немогу сделать сортировку. А задание такое: создать файл, содержащий сведения о работниках фирмы: фамилия, домашний адрес: улица, дом, квартира, дата рождения: день, месяц, год, дата приема на работу: день, месяц, год, табельный номер. Написать программу, которая выдает список сотрудников, принятых на работу в текущем году, отсортированный по дате рождения, определяет, есть ли сотрудники, живущие на одной улице.

Помогите пожалуйста.

z-END

Дата 27.6.2004, 17:28 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Ну тут два варианта:
первый и самый оптимальный: Использовать БД
если память неподводит в примерах по созданию БД есть нечто похожее, так что смотри и изучай.
второй (если с БД никак): Использовать для этого структуру:

Код

Temployer = Record
  Name: String[32];       // имя сотрудника
  Surname: String[32];    // фамилия
  StreetName: String[64]; // улица
  House: Word;            // номер дома
  Flat: Word;             // номер квартиры
  BirthDate: TDate;       // день рождения
  Hired: TDate;           // дата приема на работу
  ID: String[32];         // табельный номер
 end;

для проверки прниятия на работу в течении года использовать DaysBetween (Now, TEmployer.Hired) если больше 356 дней значит принят на работу больше года назад.
если надо про календарный год тогда так: if YearOf (Now) <> YearOf (TEmployer.Hired) если не равны значит года приема и текущий отличаются
сортировать по дате приема: искать на форуме про сортировку (недавно был описан метод пузырька) сравнивать по TEmployer.Hired
сотрудники на одной улице: просто все подряд проверять если TEmployer.StreetName у когонибудь совпали значит живут на одной улице.

ЗЫ а вот исходники тебе наврядли кто-то даст, только если продадут

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Albinos_x

Дата 28.6.2004, 03:23 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата

ЗЫ а вот исходники тебе наврядли кто-то даст, только если продадут

Это точно, если только примеры.

Про сортировку смотри здесь

там есть примеры сортировки, как это переделать под твой случай, думаю разберёшся, это не сложно.

Пользуйся советом nJIaKca.spb

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

piv

Дата 28.6.2004, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.6.2004

Репутация: нет
Всего: нет

Спасибо за помощь!!! Вроде понял, должно все получиться.

SoftLines

Дата 7.7.2004, 12:28 (ссылка)

(нет голосов)

Загрузка ...

ЗАБАНЕН

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: -1
Всего: 1

Я тебе могу дать бесплатно исходник моей базы даннх, там просто можешь добавить и свои пункты, но не забывай надо учиться и учтиться исходник тебе ничего не даст ты только посмотришь как делать а потом другому человеку скажешь, что вот я написал прогу сам, нет я тебя не виню, просто надо качать учебники и F.A.Q. там уже ты всё найдёшь!

Давай успехов!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »