![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Народ помогите плиз срочно
![]() Правда у мя просьба по Паскалю, но они с Delphi похожи, может кто поможет. Мне нужно создать программу по выводу на экран сведений из типизированного файла, в котором содержатся записи о марке авто и его стоимости. Плюс скроллинг на стрелочки по 1 записи или на PgUp/PgDown блоками по 10 записей. Выглядеть должно примерно так: Сведения об автомобилях ----------------------------- |Марка авто|Цена(тыс. руб.| ----------------------------- |Volksvagen|----6529-------| |xxxxxxxxxxx|xxxxxxxxxxxxxxx| И так далее. Помогите плиз если кто шарит. |
#2
|
|||
|
|||
![]() <Марка> <цена>
<Марка> <цена> На делфи это может выглядеть так: AssignFile(f,p); Reset(f); Repeat Read(f,marka); Read(f,cena); until seek EOF; |
#3
|
|||
|
|||
![]() Человек же написал - типизированный файл.
Тебе точно на стандартном паскале надо, а то там нет некоторых полезных вещей, как то динамические масивы, шаблоны списков и т.п... Собственно, описание типа: Код:
type // Тип записи PCarInfo = ^TCarInfo; // Указатель на запись TCarInfo = record Name : String[100]; Price : Integer; // Цена в целых тыс. руб. end; // Тип файла TCarInFoFile = File Of TCarInfo; Далее надо завести хранилище для записей файла. Если дельфи, то просто используем динамический массив или список TList. Если все-таки паскаль, то придется строить связанный список. В этом случае придется написать маленький прокси-объект, который внутри себя хранит нашу запись и ссылку на следующий и предыдущий объекты в цепочке. Почему на предыдущий - потому что тебе нужна навигация вперед-назад, а для этого придется воспользоваться двусвязанным списком. Ну а далее уже придется разбираться с выводом в окне, чтением и записью файла, что не так и сложно. |