База данных

[Айдар]

Привет всем помогите плиз вот надо добавить новые записи в файл

procedure addrec;
begin
Assign(F,Filename);
Reset(F);
{вот здесь мне надо перевести курсор в конец строки
seek (f,filesize(f)); но паскаль выдает ошибку инвалидный тип файла
}
vvod;
close(f);
end;

сам f я описал как text;

Процедура vvod:

Procedure Vvod;
Begin
ClrScr;
Writeln;
Writeln(' <<<доб данных>>> ');
Writeln;
Write(' кол-во записей ');
Readln(N);
For i:=1 to N do
Begin
Writeln;
With bd[i] do
Begin
Write(' name ');
Readln(name);
Write(' cena ');
Readln(cena);
Write(' tip ');
Readln(tip);
end;
end;
end;

[Serge_Bliznykov]

сам f я описал как text;

Думаю, что это неверно.
Используйте тип запись и, соответственно, типизированный файл.

если же, Вы ошибочно считаете, что текстовый файл это и есть Ваша "База данных", тогда для добавления строчек используйте процедуру открытия текстового файла на добавление: Append(f)...

[Айдар]

блин чето теперь не выводит базу

Procedure Chit;
Begin
ClrScr;
Assign(F,Filename);
reset(f);
seek (f,0);
For i:=1 to N do
While not EOF(F) do
Begin;
With bd[N] do
Begin
Read(F,name);
Read(F,cena);
Read(F,tip);
writeln;
End;
End;
readln;
End;

Вот исходник: http://slil.ru/28539683

[Serge_Bliznykov]

ой, Айдар, ну и натворили же Вы ошибок...
огромную кучу и ещё маленький вагончик вдогонку...
извините, но рассказать обо всех — много времени займёт. поэтому позволю себе просто выложить работающий код. Если я в Вас не ошибаюсь, то Вы в нём разберётесь (будут вопросы - милости прошу)...

[psycho-coder]

Для текстовых файлов нельзя использовать Seek. Подробности

[Айдар]

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

ой, Айдар, ну и натворили же Вы ошибок...
огромную кучу и ещё маленький вагончик вдогонку...
извините, но рассказать обо всех — много времени займёт. поэтому позволю себе просто выложить работающий код. Если я в Вас не ошибаюсь, то Вы в нём разберётесь (будут вопросы - милости прошу)...

А зачем вы создали функцию Pad

[Serge_Bliznykov]

А зачем вы создали функцию Pad

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

если хотите, вполне можете обойтись без неё!