Собственно сабж, помогите дописать модуль программы:
1)ввод списка работает
2)вывод списка работает
3)удаление записей нет
4)поиск нет
5)редактирование записей нет
6)сортировка нету(
Прикрепленные файлы
IDZ3.zip ( 2.43 килобайт )
Кол-во скачиваний: 229
помогите мне нужно это все на завтра а то полный капец (
for i:=1 to filesize(f1) do
begin
read(f2,c1);
if filepos(f1) <> n then write(f1,c1);
end;
походу даа с остальными процедурами я без рамыпомоги написать модуль плиз=)
+Удаление надо просто поменять местами файлы местами ты читаешь из пустого в полный
+Для поиска можно тот же вывод только с проверкой на совпадение (типа того, что ты делаешь при удалении только наоборот)
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
не плохо бы проверять ввёл ли пользователь команду
И так для каждого поля
потом пишешь запись в обратно в файл}