Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6305
Последний выпуск: 19.06.2015

заполнение записей из текстового файла

2.0K
06 июня 2012 года
alexandrv
38 / / 21.01.2010
Здравствуйте!

Есть текстовый файл из 10 строк, вида: Фамилия, Факультет, Группа, Оценка.
Составлена программа забора данных из файла input.txt и вывод данных в файл output.txt.
Но программа выводит ошибку неверного числового формата при вводе. Выяснил, что это происходит потому, что программа считывает сразу строку целиком, не делит информацию по полям записи. Вопрос: как сделать так, чтобы строка считывалась поэлементно.
const n=10;
type zap=record
fam:string;
fak:string;
gr:string;
oc:integer;
end;
var spisok:array[1..n] of zap;
i:integer; f:text;
BEGIN
assign(f,'c:\oaip\input.txt');
reset(f);
for i:=1 to n do
with spisok do
begin
readln(f,fam,fak,gr,oc);
end;
close (f);
assign(f,'c:\oaip\output.txt');
rewrite(f);
for i:=1 to n do
with spisok do
begin
writeln(f,fam,fak,gr,oc);
end;
close(f);
END.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог