![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#21 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
оп-с...
сорри... Последний раз редактировалось Serge_Bliznykov; 25.07.2009 в 13:41. Причина: пока писал пример умные люди уже во всём сами разобрались... :)))) |
![]() |
![]() |
![]() |
#22 |
Форумчанин
Регистрация: 24.05.2009
Сообщений: 119
|
![]()
Anatole
puporev Спасибо большое ребята! |
![]() |
![]() |
![]() |
#23 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
![]()
Вопрос по теме!!
Как прочитать часть из типизированного файла... Что бы не грузить весь файл в О\П....а, только одну строку к примеру? |
![]() |
![]() |
![]() |
#24 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Прочитать строку №5.
Код:
|
![]() |
![]() |
![]() |
#25 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
![]()
[QUOTE=puporev;317154]Прочитать строку №5.
Код:
Перемменная (а) к кокому типу должна относиться......не могу подобрать..."26 неверный тип переменной"? |
![]() |
![]() |
![]() |
#26 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#27 | |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
![]() Цитата:
вот код: program VVod; type MenR=record Name:string; Numer:byte; tel:byte; Pol:Char; end; Men=file of MenR; var stroka:menR; in_f:file of MenR; a:byte; begin assign(in_f,'F:\re'); rewrite(in_f); write('€¬п '); {имя} readLn(stroka.name); write('Ќ®¬Ґа '); {номер} readLn(stroka.Numer); write('⥫Ґд®* '); {телефон} readln(stroka.tel); write('Џ®« '); {пол} readLn(stroka.Pol); write(in_f,stroka); close(in_f); reset(in_f); seek(In_f,3); read(in_f,a); writeln(a:25); readLn; end. Последний раз редактировалось Doholyan; 29.07.2009 в 21:00. Причина: Где пробелы? почему изменяеться растояние между строками?????? |
|
![]() |
![]() |
![]() |
#28 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
f:file of MenR; значит все что записывем в файл и читаем из него должно быть этого типа.
Код:
|
![]() |
![]() |
![]() |
#29 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
![]()
program VVod;
type MenR=record Name:string; Numer:byte; tel:byte; Pol:Char; end; Men=file of MenR; var stroka:menR; in_f:file of MenR; a:menR; begin assign(in_f,'F:\re'); rewrite(in_f); write('name '); readLn(stroka.name); write('Numer '); readLn(stroka.Numer); write('telefon '); readln(stroka.tel); write('pol '); readLn(stroka.Pol); write(in_f,stroka); close(in_f); reset(in_f); seek(In_f,1); read(in_f,a); <-- здесь Ошибка диск читает ошибку100 writeln(a.name,a.numer,a.tel,a.pol) ; readLn; end. |
![]() |
![]() |
![]() |
#30 |
Форумчанин
Регистрация: 06.01.2009
Сообщений: 340
|
![]()
Ошибка здесь:
seek(In_f,1); Записи нумеруются с 0. И у тебя всего 1 запись. Надо: Код:
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник". |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Загрузка данных из файла | JIK | Помощь студентам | 4 | 19.05.2013 12:17 |
Cортировка типизированного файла по 3м признакам | Dremgor | Помощь студентам | 3 | 05.06.2009 14:10 |
загрузка данных из тестового файла | gribog | БД в Delphi | 16 | 19.07.2007 15:06 |