1

好的，事情就是这样，我的程序运行完美.. 在我在表单上添加另一个按钮之前完全没有错误。

我有一个与数组[1..200] 并行的字符串网格。

我有一个删除按钮：

Procedure TForm1.DeleteTeam(TeamName: string);
var
  i : integer;
begin
  for i := 1 to TotalNumberOfTeams do
    begin
      if TeamName = SailingTeams[i].TeamName then
        begin
          sailingTeams[i].AvLapTime := 99999999;
          //puts one to delete with largest value to delete
          SortArray;
          //sorts it so it is at the end of array
          sailingTeams[TotalNumberOfTeams] := nil;
          TotalNumberOfTeams := TotalNumberOfTeams - 1;
          sortArray;
          UpdateGrid;
          Break;
        end;
    end;
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
var
  TeamName : string;
  continue : integer;
begin
  TeamName := (strGrid.Cells[0,(strGrid.Row)]);
  continue := MessageDlg('Are you sure you wish to delete: '+teamName+'?',mtWarning, mbYESNO, 0);
  if continue = mrYES then
    DeleteTeam(TeamName);
end;

如果我添加一个按钮并单击它，然后单击删除我得到错误：S：S

只是一个 24 小时肮脏比赛的家庭项目，所以算法和东西的效率并不重要，但是关于我为什么会收到这个错误的任何想法？:S

4

0 回答 0