Таблица рекордов: парные картинки

[Кристина2000]

Помогите сделать таблицу рекордов. За основу можно взять оставшееся время. Результаты нужно записывать в отдельный файл.

[min@y™]

Результаты нужно записывать в отдельный файл.

TMemIniFile поможет.
А выводить можно в TListView / TStringGrid.
Каждый рекорд хранить в памяти как структуру (record) или экземпляр класса, это придётся написать вручную. Для организации списка заюзать TList / TObjectList соответственно.

[Кристина2000]

Сообщение от min@y™

Каждый рекорд хранить в памяти как структуру (record) или экземпляр класса, это придётся написать вручную.

Можно поподробнее?

[min@y™]

Можно поподробнее?

здесь, на форуме, сидит куча народу. вот они пусть раскрывают подробности, а я, имхо, свою часть дела сделал.

[Кристина2000]

Помогите, пожалуйста. Я не знаю, как мне сделать таблицу рекордов в делфи. Таблица рекордов должна заносится в отдельный файл(record.dat),пока прописано под лёгкий уровень сложности(Form3-уровень, Form8-таблица)). Появляется ошибка "read beyond end of file". Прошу о помощи...

https://cloud.mail.ru/home/впвпр%20(4).zip

[Slym]

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

[Кристина2000]

https://cloud.mail.ru/public/76b9658...1%80%20(4).zip

[Slym]

я немного в шоке от увиденного
но наверно цикл нужно с предусловием

procedure TForm8.loadFile;
Var
  f:File of Zapis;
  st:Zapis;
  i:integer;
begin
  i:=0;
  AssignFile (f,'record.dat');
  Reset (f);
  while not Eof(f) do
  begin
    Read (f,st);
    inc(i);
    StringGrid1.RowCount:=i;
    StringGrid1.Cells[0,i-1]:=St.Name;
    StringGrid1.Cells[1,i-1]:=IntToStr(St.rec);
  end;
  CloseFile(f);
end;

[Кристина2000]

Теперь выдаёт ошибку "is not a valid integer value"

r:=MessageDlg('Âû íàáðàëè '+IntToStr(Rec)+'î÷êîâ!'+ #13+
           'Åùå ðàç?', mtInformation, [mbYes, mbNo], 0);
           if r = mrNo then begin
            Form2.Show;
            Form8.Visible:=False;
            Form3.Visible:=False;
            end;
          If r=mrYes then begin
           NewGame;
           Form8.Visible:=false;
           sGauge1.Progress:=600;
           end;

Вот здесь

Вот собственно

[Slym]

procedure TForm8.btn1Click(Sender: TObject);
Var f:File Of Zapis;
   st:Zapis;
   i:integer;
begin
  StringGrid1.RowCount:= StringGrid1.RowCount+1;
  StringGrid1.Cells[0,StringGrid1.RowCount-1]:=sEdit1.Text;
  StringGrid1.Cells[1,StringGrid1.RowCount-1]:=IntToStr(Rec);

  AssignFile (f,'record.dat');
  Rewrite (f);
  For i:=1 to StringGrid1.RowCount-1 do
  Begin
    st.Name:=StringGrid1.Cells[0,i];
    st.rec:=StrToInt(StringGrid1.Cells[1,i]);
    Write (f,st);
  end;
  CloseFile (f);
  Lbl1.Visible:=false;
  sEdit1.Visible:=false;
  Btn1.Visible:=false;
end;