База данных Pascal.

[Dianochka]

Задача: Реализуйте базу данных с полями "Фамилия", "Имя", "Отчество", "Пол", "Год рождения" как файл типа запись. Интерфейс должен позволять:
1. Вносить новые записи
2. Удалять записи
3. Просматривать список по полу
4. Просматривать список по году рождения.

Тупо не понимаю как это сделать.
Кто знает просветите меня плиз!

[Tayfun]

Для начала создаем базу типа record:

type
Person=record
f,i,o,p:string;{f-фамилия, i-имя, o-отчество, p-пол}
d,m,y:integer;{d-день, m-месяц, y-год}
end;

Интерфейс должен позволять:
1. Вносить новые записи
2. Удалять записи
3. Просматривать список по полу
4. Просматривать список по году рождения.

Можно сделать два варианта меню:
1) Простое - каждому эллементу меню присваиваеться определенное значение, к примеру 1.Внести новую запись
2) Удалить запись... и т.д
Вводить определенное значение и через оператор множественного выбора (case) выполнять определенную процедуру...

2. Сложное - Выбор осуществляеться непосредственно стрелками вверх и вниз.

[Dianochka]

лучше сделать простое. Покажи если тебе не сложно ну... допустим как удалять записи и просматривать по полу.

[Tayfun]

как удалять записи

Допустим у вас есть некоторая база записей состоящая из n эллементов.

PP:array [1..n] of person;

Нам надо удалить Персону находящуюся на k-ой позиции. предлагаю следующий вариант:
все записи от 1 до k-1 оставить нетрогая, затем открываем цыкл

for i:=k to n-1 do begin
PP.f[i]:=PP.f[i+1];
.......................
PP.y[i]:=PP[i+1];
end;
n:=n-1;

Получаеться мы сократили список на одну запись, советую использовать with

просматривать по полу

Здесь еще проще: С помощью цикла просматриваем эллемент записи соответствующий полу.

for i:=1 to n do
if PP[i]='M' then begin .... end;

Здесь мы находим все записи соответствующие полу 'M' и выполняем с ними определенную функцию (к примеру выводим на экран)

[Dianochka]

Как думаешь лучше сделать через указатели?

[Tayfun]

Сообщение от Dianochka

Как думаешь лучше сделать через указатели?

На ваше усматрение... Лично я с with работать нелюблю, но with значительно укарачивает программу во многих случаях.

[Dianochka]

Скажи пожалуйста код полностью удаления записи через with.