Формирование списка из файла Опции

[Rubin]

Подскажите пожалуйста ,что не так в следующей программе. На экран почему то не выводится список.

Исходный код

program students;
uses crt;
type
p_student=^student;
student=record
name:string[20];
next:p_student;
end;
var
a:array[1..100] of string;
filestud:text;
head:p_student;
curr:p_student;
buf:string[20];
i:integer;
begin
assign(filestud,'c:\base1.txt');
reset(filestud);
repeat
read(filestud,buf[i]);
i:=i+1;
until
eof(filestud);
close(filestud);
begin
if length(buf[i])<>0 then
begin
new(curr);
curr^.name:=buf[i];
curr^.next:=head;
head:=curr;
end;
while Length(buf[i])=0 do
writeln('Введеный список ');
curr:=head;
while curr<>nil do begin
writeln(curr^.name);
curr:=curr^.next;
end;
readln;
end;
end.

Код заключаем в теги !!!

Сообщение отредактировано: volvo - 8.02.2005 18:02

[volvo]

Rubin,
а что хранится в файле 'c:\base1.txt' ? Если фамилии студентов, то они просто сохраняются в одном и том же буфере (т.е. фактически накладываются одна на другую)...

Приведите короткий пример файла, чтобы было ясно, что именно читается из него...

P.S. Я бы сделал так:

Исходный код

program students;
uses crt;
type
p_student=^student;
student=record
name:string[20];
next:p_student;
end;

var
filestud:text;
head, curr:p_student;
buf:string;

begin
assign(filestud,'base1.txt');
reset(filestud);
head := nil;
repeat
readln(filestud,buf);

new(curr);
curr^.name := buf;
curr^.next := head;
head := curr;

until eof(filestud);
close(filestud);

writeln('list entered ');
curr:=head;
while curr<>nil do begin
writeln(curr^.name);
curr:=curr^.next;
end;
readln;
end.

И не забываем освобождать занятую память !!!

Сообщение отредактировано: volvo - 8.02.2005 18:41