Чтение строки из фаила выдаёт страшную ошибку

← →
ALEKCEY (2004-10-22 16:08) [0]

Люди может я жутко торможу, но почему не работает процедура LoadBase? При попытке чтения из фаила она выдаёт ошибку и закрывается?

в фаиле ludi.txt названия txt"ек с параметрами людей.

const
max_ludi = 5000;

type Tedit = record
a: array [1..20] of string;
end;

var
ludi: array [1..max_ludi] of Tedit;
list: array [1..max_ludi] of string;

procedure LoadList;
var f:textfile;
i: integer;
begin
i:=0;
assignfile(f,"ludi.txt");
reset(f);
repeat inc(i);
readln(f, list[i]);
until list[i]=";";
closefile(f);
end;

procedure LoadBase;
var f:textfile;
s:string;
i, i1: integer;
begin
i:=0;
repeat inc(i);
assignfile(f,list[i]);
readln(f, ludi[i].a[1]);
readln(f, ludi[i].a[2]);
readln(f, ludi[i].a[3]);
readln(f, ludi[i].a[4]);
readln(f, ludi[i].a[5]);
readln(f, ludi[i].a[6]);
readln(f, ludi[i].a[7]);
readln(f, ludi[i].a[8]);
readln(f, ludi[i].a[9]);
readln(f, ludi[i].a[10]);
readln(f, ludi[i].a[11]);
readln(f, ludi[i].a[12]);
readln(f, ludi[i].a[13]);
readln(f, ludi[i].a[14]);
readln(f, ludi[i].a[15]);
readln(f, ludi[i].a[16]);
readln(f, ludi[i].a[17]);
readln(f, ludi[i].a[18]);
readln(f, ludi[i].a[19]);
read(f, ludi[i].a[20]);
{i1:=0;
repeat inc(i1);
readln(f, ludi[i].a[i1]);
until i1=20; }
closefile(f); //закрываем фаил
until list[i+1]=";";
end;

← →
Алексей Петухов (2004-10-22 16:11) [1]

Где ошибка?
В первом readln?

← →
MacroDenS © (2004-10-22 16:13) [2]

А где reset(f)?????
поставька его после assignfile

← →
Anatoly Podgoretsky © (2004-10-22 16:32) [3]

Алексей Петухов (22.10.04 16:11) [1]
Где СТРАШНАЯ ошибка?

← →
ALEKCEY (2004-10-22 20:22) [4]

продлемма в первом readln. reset(f) не помогает.

А ошибка страшная, за 4 года такого со мной ещё ни разу не случалось :(

← →
jack128 © (2004-10-22 20:24) [5]

страшна не ошибка.. Страшен этот код..

>readln(f, ludi[i].a[1]);
> readln(f, ludi[i].a[2]);
> readln(f, ludi[i].a[3]);
> readln(f, ludi[i].a[4]);
> readln(f, ludi[i].a[5]);
> readln(f, ludi[i].a[6]);
> readln(f, ludi[i].a[7]);
> readln(f, ludi[i].a[8]);
> readln(f, ludi[i].a[9]);
> readln(f, ludi[i].a[10]);
> readln(f, ludi[i].a[11]);
> readln(f, ludi[i].a[12]);
> readln(f, ludi[i].a[13]);
> readln(f, ludi[i].a[14]);
> readln(f, ludi[i].a[15]);
> readln(f, ludi[i].a[16]);
> readln(f, ludi[i].a[17]);
> readln(f, ludi[i].a[18]);
> readln(f, ludi[i].a[19]);
>

← →
begin...end © (2004-10-22 20:25) [6]

> [4] ALEKCEY (22.10.04 20:22)

Текст ошибки?

← →
wnew © (2004-10-22 20:33) [7]

ALEKCEY (22.10.04 20:22) [4]
:)
procedure LoadList;
var f:textfile;
i: integer;
begin
i:=0;
assignfile(f,"ludi.txt");
reset(f);
while (not Eof) and (not List[i]=";") and (i <= max_ludi)
begin
inc(i);
readln(f, list[i]);
end;
closefile(f);
end;

Может, у тебя файл пустой?

wnew © (22.10.04 20:33) [7]

> while (not Eof) and (not List[i]=";") and (i <=
> max_ludi)

while (not Eof(f)) and (not List[i]=";") and (i <=
> max_ludi)

Чёрт! Фиг знает что:)
while (not Eof) and (not List[i]=";") and (i <= max_ludi)

Чтение строки из фаила выдаёт страшную ошибку Найти похожие ветки