Цитата:
|
Сообщение от qazpos
Я немного переписал и дописал код, исключил возможность обработки пустых файлов:
Код:
...
nmax:=filesize (townsfile);
SetLength (townsmas, nmax);
SetLength (waysmas, nmax);
nmax:=nmax-1;
for i:=0 to nmax do
begin
readln (townsfile, str);
townsmas [i]:=str;
end;
... |
Мне вот это место немного непонятно. Ты переменной nmax присваиваешь размер файла
в байтах, а потом в цикле пытаешься прочесть из него
nmax строк? Откуда у файла размером например 100 байт возмётся 100 строк?