|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.07.2009, 13:40 | #21 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
оп-с...
сорри... Последний раз редактировалось Serge_Bliznykov; 25.07.2009 в 13:41. Причина: пока писал пример умные люди уже во всём сами разобрались... :)))) |
25.07.2009, 15:28 | #22 |
Форумчанин
Регистрация: 24.05.2009
Сообщений: 119
|
Anatole
puporev Спасибо большое ребята! |
29.07.2009, 18:51 | #23 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
Вопрос по теме!!
Как прочитать часть из типизированного файла... Что бы не грузить весь файл в О\П....а, только одну строку к примеру? |
29.07.2009, 19:10 | #24 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Прочитать строку №5.
Код:
|
29.07.2009, 20:29 | #25 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
[QUOTE=puporev;317154]Прочитать строку №5.
Код:
Перемменная (а) к кокому типу должна относиться......не могу подобрать..."26 неверный тип переменной"? |
29.07.2009, 20:32 | #26 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
|
|
29.07.2009, 20:57 | #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. Причина: Где пробелы? почему изменяеться растояние между строками?????? |
|
29.07.2009, 21:23 | #28 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
f:file of MenR; значит все что записывем в файл и читаем из него должно быть этого типа.
Код:
|
29.07.2009, 22:02 | #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. |
29.07.2009, 22:18 | #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 |