delphi

[S[p]ake]

короче

заебался я искать ошибку, помогите. Ошибку выделяет там, где жирным выделено

 

 

type

 student = record

     Imja : string[40];

     gruppa:String;

     ball: integer;

     ball2:integer;

     ball3:integer;

     end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

 var

 otvet:integer;

 f1:file of student;

begin

AssignFile(f1,'spravka.txt');

{$I-}

Reset(f1);

seek(f1,filesize(f1));

{$I+}

if IOResult<>0 then

   begin

     otvet:=MessageDlg('Îøèáêà äîáàâëåíèÿ èíôîðìàöèè, Ñîçäàòü íîâóþ?',mtInformation,[mbYes,mbNo],0);

     if otvet=mrYes then

            begin

            {$I-}

            Rewrite(f1);

            {$I+}

            if IOresult<>0 then Exit;

            end

            else Exit;

     end;

  with chel do

     begin

     Imja:=Edit1.Text;

     if combobox1.Text='1 ãðóïïà' then gruppa:='1 ãðóïïà' else gruppa:='2 ãðóïïà' ;

     ball:=Strtoint(Edit2.Text);

     ball2:=strtoint(edit3.Text);

     ball3:=strtoint(edit4.text);

 

     end;

     write(f1,chel);

     CloseFile(f1);

end;

 

[Sneg]

знаю но не помогу

 

 

[S[p]ake]

знаю но не помогу

 

 

 

если тебя отвести в международное бюро мер и весов-тебя там примут за единицу еблана

[Zhenek]

а чё за ошибку-то выдаёт?

[S[p]ake]

Type "student" needs finalization - not allowed in file type

[KpbIcoboi]

Помог бы, но знаю только С++ 

[S[p]ake]

тему клоз. Нашел ошибку...

[FutuRu]

ake link=topic=58202.msg2022149133#msg2022149133 date=1253210892]

знаю но не помогу

 

 

 

если тебя отвести в международное бюро мер и весов-тебя там примут за единицу еблана

5 баллов если сам придумал