Помощь - Поиск - Пользователи - Календарь
Полная версия: Запись и чтение из файла массива строк
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-=АнЮтА=-
    Program vvod_stud;
uses crt;
const coun=2;
var m:array[1..coun] of string;
i:integer;
q:char;
f:file of array [1..coun] of string;
Begin
Clrscr;
assign(f,'stud.dat');
rewrite(f);
i:=1;
while not (i=10) or (q=#27) do begin
q:=readkey;
if q=#27 then begin writeln('Операция прервана');
readln;halt(1); end;
writeln ('Введите студента или нажмите Esc');
readln(m[i]);

i:=i+1;
end;

close(f);
readln;
assign(f,'stud.dat');
reset(f);
for i:=1 to coun do
readln (f,m[i]);
write(m[i],' ');
close(f);
readln;
end.



что хочу сделать - записать в файл массив из десяти строк а пото его считать оттуда. подозреваю что неверно обращаюсь к тому,чо хочу считать. Обращаюсь к элементу массива. а в файле записан целый. Как это можно реализовать?

blink.gif


Perfez
Цитата
f:file of array [1..coun] of string;

вместо этого вроде
Цитата
f:file of string;

это должно быть... smile.gif
Артемий
а зачем 2 раза открывать файл?Все равно в первом разе ты не производишь с ним никаких операций..или это не весь код?
-=АнЮтА=-
Неа, не совсем весь....что-то я подзапуталась о_О
Спасиб за помощь)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.