![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#3
|
|||
|
|||
![]() Человек же написал - типизированный файл.
Тебе точно на стандартном паскале надо, а то там нет некоторых полезных вещей, как то динамические масивы, шаблоны списков и т.п... Собственно, описание типа: Код:
type // Тип записи PCarInfo = ^TCarInfo; // Указатель на запись TCarInfo = record Name : String[100]; Price : Integer; // Цена в целых тыс. руб. end; // Тип файла TCarInFoFile = File Of TCarInfo; Далее надо завести хранилище для записей файла. Если дельфи, то просто используем динамический массив или список TList. Если все-таки паскаль, то придется строить связанный список. В этом случае придется написать маленький прокси-объект, который внутри себя хранит нашу запись и ссылку на следующий и предыдущий объекты в цепочке. Почему на предыдущий - потому что тебе нужна навигация вперед-назад, а для этого придется воспользоваться двусвязанным списком. Ну а далее уже придется разбираться с выводом в окне, чтением и записью файла, что не так и сложно. |