[Xario]

В таблице при выигрыше не записывается рекорд (Кол-во ходов)

[Kailon]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm2.Button1Click(Sender: TObject); Var f:File Of Zapis;    st:Zapis;    i:integer; begin   AssignFile (f,'record.dat');   Rewrite (f);   StringGrid1.RowCount := StringGrid1.RowCount+1;   StringGrid1.Cells[0,StringGrid1.RowCount-1]:=Edit1.Text;   StringGrid1.Cells[1,StringGrid1.RowCount-1]:=IntToStr(Count);   For i:=0 to StringGrid1.RowCount -1 do     Begin       st.Name:=StringGrid1.Cells[0,i];       <font color="Red">st.Count:=StrToInt(StringGrid1.Cells[1,i]);</font>       Write (f,st);     end;   CloseFile (f);   Label2.Visible:=false;   Edit1.Visible:=false;   Button1.Visible:=false; end;

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

P.S.: я бы в структуру хранения результатов добавил общее количество записей. При считывании файла в StringGrid добавлял нужное кол-во строк, затем заполнял его, а уже потом показывал форму.