перечисляем строки в массив Опции

[doorway]

есть задачка, большая, но я забыл как перечислить нормально строки текстового файла в массив. и большая стала маленькой пока.
входной файл имеет вид
1
2
3
..
10
Все работает, но в выходном файле 0.

program var2;

var

mass:array[1..10] of integer;

inp, out:text;

i:integer;

begin

assign(inp,'inpu.inp');

assign(out,'outpu.out');

reset(inp);

for i:=1 to 10 do

begin

readln(inp,mass[i]);

end;

rewrite(out);

write(out,mass[2]);

close(out);

close(inp);

end.

Помогите ошибку найти.

Сообщение отредактировано: doorway - 15.09.2010 23:54

[Lapp]

Дело явно во входном файле, что-то с ним не так. Ясно, что в процессе чтения не происходит переход на следующую строку. То есть ReadLn не находит признака конца строки.

Тот файл, что ты прикрепил выше, имеет явно не Windows/DOS формат - в нем концы строк обозначены не двумя символами CR+LF ($0D+$0A), как это принято у MS, а одним LF ($0A), как в Unix. У меня тут нету TP, чтобы проверить его реакцию на такое безобразие.

В чем ты создаешь входной файл? Создай его в обычном Блокноте. Если у тебя продвинутый редактор, то посмотри, не стоит ли там где-нить опция записи в формате Unix. На всякий случай я прикрепляю нормальный (виндусовый) файл. Признаком "нормальной виндусовости", кстати, может служить длина файла. Она должна быть по крайней мере 29 байт. Присланный тобой файл содержит 21 байт.

 in_data.txt ( 29 байт ) Кол-во скачиваний: 414


С названиями переменных и файлов тоже, конечно, желательно быть осторожнее. В этом примере все на самом деле чисто, но лучше избегать всяких in и out и т.п. Береженого Бог бережет..