时间戳

首页 > 解决方案 > 项目引发异常类 EListError，并带有消息“列表索引超出范围 (1)”。进程停止。使用 Step 或 Run 继续

delphi - 项目引发异常类 EListError，并带有消息“列表索引超出范围 (1)”。进程停止。使用 Step 或 Run 继续

问题描述

我制作了简单的点击游戏，我想在图表中显示我的点击速度。

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    Chart1: TChart;
    Series1: TLineSeries;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  clicks_total,i: integer;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
clicks_total:=clicks_total+1;
Label2.Caption:=IntToStr(clicks_total);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
clicks_total:=0;
i:=1;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var clicks_total_support:integer;
begin
i:=i+1;
clicks_total_support:=clicks_total;
Chart1.Series[1].AddXY(i,clicks_total_support,'Hello',clBlue);
clicks_total_support:=1;
end;

end.

我想在图表中使每一秒成为一个点，其中 X 仅大 1 并且 Y（点的高度）将是用户在一秒钟内进行的点击。但是在运行代码 1 秒后，它会崩溃，并出现以这个问题为名的错误。有人帮忙吗？

标签： delphidelphi-7

解决方案

推荐阅读