Задача на модуль, помогите доделать Опции

[babyrka]

Собственно сабж, помогите дописать модуль программы:
1)ввод списка работает
2)вывод списка работает
3)удаление записей нет
4)поиск нет
5)редактирование записей нет
6)сортировка нету(

Сообщение отредактировано: babyrka - 7.05.2008 20:56

[babyrka]

помогите мне нужно это все на завтра а то полный капец (

[Rian]

for i:=1 to filesize(f1) do
    begin
    read(f2,c1);
    if filepos(f1) <> n then write(f1,c1);
    end;
 

по поводу удаления
Если не секрет после этих операций исходный файл делается пустым?

[babyrka]

походу даа с остальными процедурами я без рамыпомоги написать модуль плиз=)

[Rian]

+Удаление надо просто поменять местами файлы местами ты читаешь из пустого в полный

+Для поиска можно тот же вывод только с проверкой на совпадение (типа того, что ты делаешь при удалении только наоборот)

procedure vyvod;
 begin
...
 for i:=1 to n do
 begin
 read(f1,c1);

if c1.firma=zapros then {--добавить
дальше уже фантазируй как у тебе прога работает}
 writeln(c1.firmy:15, c1.tovar:10, c1.rik:7)
 end;
 readkey;
 end;

+Редактирование
Тут конечно много вариантов и многое зависит от количества времени, которое можно потратить на украшательства
допустим ввёл номер записи и запрашиваешь изменение каждого поля.
Если первый символ '+' меняешь,
первый '-' не меняешь:

writeln(c1.firma+' изменить?')
readln(st);
   if st[1]='+' then c1.firma:=copy(st,2,255) else
   if st[1]='-' then writeln('без изменений');
{можешь использовать case
не плохо бы проверять ввёл ли пользователь команду
И так для каждого поля
потом пишешь запись в обратно в файл}

+сортировка
тут в принципе не сложно, даже недавно поднималась тема по поводу
быстрой сортировки прямо в файле (что в принципе невозможно )
ну а так обычный одномерный массив
попробуй сам...