Загрузка списка из файла

@dimakozin · Регистрация: 09.03.2015

Author24 — интернет-сервис помощи студентам

Delphi

var curr:tpstudent;
 
st:string;
begin
 
getdir(0,fname);
  fname:=fname+'\test.db';
 
  assignfile(f,fname);
  {$I-}
    reset(f);
    {$I+}
  If IOResult <> 0 then messageDLG('Ошибка',mtError,[mbOk],0);
 
 curr:=head;
 
 repeat begin
 readln(f,st);
 
 curr^.family:=copy(st,1,pos(' ',st)-1);
 delete(st,1,pos(' ',st));
 curr^.Name:=copy(st,1,length(st));
 
 curr:=curr^.next;
 end;
 until eof(f);
 
 
  closefile(f);
 end;

программа выдает ошибку.

@krapotkin · 09.03.2015, 20:02

1)

repeat begin
...
end until

begin end здесь не требуется
2)

curr^

крышка "^" не требуется
3) кто такие tpstudent, head и fname?
4) Главное:
если есть оружие в доме, хотя бы нож, возьмите в руку, подойдите к зеркалу, направьте на себя, скорчите злобную рожу, и от лица всех телепатов форума спросите:
- "ГДЕ ТЕКСТ ОШИБКИ?!"

@krapotkin 5774 / 4518 / 1429 Регистрация: 14.04.2014 Сообщений: 20,136 Записей в блоге: 20
	09.03.2015, 20:02	2
	1) repeat begin ... end until begin end здесь не требуется 2) curr^ крышка "^" не требуется 3) кто такие tpstudent, head и fname? 4) Главное: если есть оружие в доме, хотя бы нож, возьмите в руку, подойдите к зеркалу, направьте на себя, скорчите злобную рожу, и от лица всех телепатов форума спросите: - "ГДЕ ТЕКСТ ОШИБКИ?!" 0

Опции темы