После нескольких нажатий кнопки вываливается ошибка(сабж).
Подскажите, что не правильно сделано в процедуре генерации данных(или не в ней)
unit MForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMainForm = class(TForm)
DataGroupBox: TGroupBox;
CoreAmountLabel: TLabel;
TaskVectorLabel: TLabel;
OrderedTaskVector: TLabel;
GenerateDataButton: TButton;
procedure FormCreate(Sender: TObject);
procedure GenerateDataButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
CoreAmount: integer;
TaskVector: array of integer;
TaskAmount:byte;
implementation
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
begin
CoreAmount:=3;
MainForm.CoreAmountLabel.Caption:=IntToStr(CoreAmount);
end;
procedure TMainForm.GenerateDataButtonClick(Sender: TObject);
var i:byte;
TaskVectorString: string[50];
begin
Randomize;
TaskAmount:=Random(6)+30;
SetLength(TaskVector,TaskAmount);
TaskVectorString:='';
for i:=1 to TaskAmount do begin
TaskVector[i]:=Random(6)+35;
TaskVectorString:=TaskVectorString + ' ' + IntToStr(TaskVector[i]);
end;
TaskVectorLabel.Caption:=TaskVectorString;
end;
end.