|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.04.2010, 11:36 | #1 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Чтение из типизированного файла с последней записи и до первой
Нужно вывести на экран записи которые хранятся в файле. Но вывести надо начиная с последней записи и заканчивая первой. Я уже измучился. Записи выводятся в перемешку. Помогите кто может.
Вот мой код: program zapisi2; USES crt; type info = record Nomer : integer; Tovar : string[30]; Stoimost : extended; end; var f : file of info; z : info; i, Cnt : integer; begin clrscr; Assign(f,'d:\kurspascal\xxx.dat'); Reset(f); writeln(' Номер | Наименование товара | Стоимость |'); writeln('------------------------------------------'); writeln; Cnt := FileSize(f); for i:=Cnt downto 1 do begin seek(f,i); while not EOF(f) do begin Read(f, z); writeln(' ',z.Nomer,' ', z.Tovar,' ', z.Stoimost:0:2); writeln; end; end; readln; Close(f); end. Вот такая фигня получается: sshot-1.jpg |
28.04.2010, 11:48 | #2 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Ну и что ты делаешь тут???
Код:
Перемешивай дело с бездельем и не сойдешь с ума...
|
28.04.2010, 12:06 | #3 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Ну а как правильно. Я в этом деле ещё лопух.
|
28.04.2010, 12:13 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
28.04.2010, 12:24 | #5 | |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Цитата:
sshot-2.jpg А мне нужно вывести начиная с последней записи и заканчивая первой. |
|
28.04.2010, 13:04 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
может так проще?
Код:
|
28.04.2010, 13:08 | #7 | |
Форумчанин
Регистрация: 07.04.2009
Сообщений: 245
|
Если
Цитата:
Код:
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
|
|
28.04.2010, 15:34 | #8 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
присвоить переменной значение поля в последней записи таблицы | KaimNotark | БД в Delphi | 1 | 03.02.2010 07:21 |
Как выделить диапазон колонок зная номера первой и последней колонки? | puzanov1973 | Microsoft Office Excel | 1 | 23.01.2010 19:56 |
ПОЛУЧИТЬ ВСЕ СИМВОЛЫ, РАСПОЛОЖЕННЫЕ МЕЖДУ ПЕРВОЙ И ПОСЛЕДНЕЙ ТОЧКАМИ | MMARKIN | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 13.04.2009 09:48 |
Поиск последней записи в определенной строке | Maxx | Microsoft Office Excel | 5 | 04.03.2009 14:01 |
Отображение первой записи таблицы DBLookupComboBox | фЁдОр | БД в Delphi | 14 | 06.01.2008 17:04 |