[имбирный кот]

Добрый вечер.
Пишу для ролевой игры имитацию броска кубика и подсчета суммы выброшенных значений (плюс модификаторы). Подсчет написан. Вывод результата числом работает. Однако хочу сделать дополнительный вывод результата в формате:
n1+n2+...nm, где n - значение, выпавшее на кубике, а m - количество кубиков (количество оборотов цикла). Сталкиваюсь с ошибкой, скриншот который выложу чуть ниже.

Итак, код программы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt2: TEdit;
    lbl2: TLabel;
    edt3: TEdit;
    lbl3: TLabel;
    edt4: TEdit;
    lbl4: TLabel;
    edt5: TEdit;
    lbl5: TLabel;
    edt1: TEdit;
    btn1: TButton;
    mm1: TMainMenu;
    D1: TMenuItem;
    chk1: TCheckBox;
    procedure btn1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nkub, ngran, modif, rezbr, i, znach: Integer;
  bufzn, bufmod: string;
  mass: array of string;



implementation

{$R *.dfm}




procedure TForm1.btn1Click(Sender: TObject);
begin
rezbr:=0; // обнулим результат на всякий пожарный
nkub:= StrToInt(edt1.text);   //число кубов переводим в интежер
ngran:=StrToInt(edt2.text);  // то же для количества граней куба
modif:= StrToInt(edt3.text); //то же для значения модификатора
SetLength (mass, nkub); //зададим длину массива, равную количеству бросков
for i:=1 to nkub do
    begin

       znach:=1+Random(ngran); 
       if chk1.Checked=True then
        begin
          rezbr:= rezbr+znach-modif //если модификатор отрицательный (проверка чекбокса - true)
        end
       else rezbr:= rezbr+znach+modif  // если модификатор положительный
        end;
 bufzn:=IntToStr(znach);
 mass[i]:=bufzn;  //запишем в массив значения, выброшенные на гранях
 //edt4.Text:=mass[i]+' '+'+'+' '; //вывод процесса броска (та самая нужная строка). не работает
edt5.Text:=IntToStr(rezbr); //вывод результата броска числом. работает
end;

procedure TForm1.D1Click(Sender: TObject);
begin
Close
end;

end.

компиляцию проходим успешно. вводим значения, нажимаем button1. программа выдает такую ошибку:

если комменчу строчку mass[i]:=bufzn; все прекрасно. подскажите, что я делаю не так?

з.ы.: с сессией вопрос никак не связан, пишу для семейного пользования)

@темы: Delphi

Comments

[aspid]

элементы массива нумеруются от 0 и до n-1 его длины.

[Trotil]

Еще хорошо бы знать, на каком шаге итерации происходит ошибка.
Но скорей всего причина ошибки указана выше.

[имбирный кот]

aspid, то есть мне следовало бы указать SetLength (mass, nkub+1), так?
Trotil, попробую сейчас с этим советом разобраться. если не получится, научите меня, пожалуйста, отслеживать, на каком шаге итерации ошибка происходит.

[имбирный кот]

неа. не помогает. та же самая ошибка выходит.
пыталась обозначать, как SetLength (mass, nkub+1), через nn:=nkub+1; SetLength (mass, nn) - ну мало ли, вдруг не воспринимает из-за +1, где nn - обозначена как integer.

или я неправильно как-то исправляю?

[имбирный кот]

однако, если пишу: nn:=nkub+100 - все работает.
спасибо, товарищи. навели на истину.

но расскажите, пожалуйста, если кто в курсе, почему nn:=nkub+1; не работает, а nn:=nkub+100 - работает. не догоняю толком.

[SpiritOK]

if chk1.Checked=True

Где нынче так Паскаль преподают? Оставьте в условии только chk1.Checked, оно само по себе либо 1 либо 0.

edt4.Text:=mass[i]+' '+'+'+' ';

Оно у вас и не будет работать, вы вместо последовательного наращивания строки каждый раз присваиваете ей новое значение.
Рекомендую сначала собрать строку целиком через String := String + [что у вас там следующее], и только потом 1 раз записать её в Edt4.text
И не злоупотребляйте IntToStr и StrToInt в теле программы, если это можно сделать один раз перед выводом. Кстати, выводить советую в Memo или в listbox, чтобы сохранялась история бросков, иногда полезно.

Построчный прогон программы обычно называется step by step, поищите в хэлпе вашего средства разработки или рядом с кнопкой запуска проекта. Или F7.

[имбирный кот]

спасибо. попробуем.

[aspid]

стоп. куча мелких глюков.

procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
rezbr:=0; 
nkub:= StrToInt(edt1.text);
ngran:=StrToInt(edt2.text);
modif:= StrToInt(edt3.text);
s:='';
SetLength (mass, nkub);
for i:=0 to nkub-1 do
    begin
       znach:=1+Random(ngran); 
       rezbr:= rezbr+znach+modif //вводите значение со знаком минус при отрицательном модификаторе
       bufzn:=IntToStr(znach);
       mass[i]:=bufzn;
       s:=s+mass[i]+' ';
    end;
edt4.Text:=s; //я так понимаю хотелось этого?
edt5.Text:=IntToStr(rezbr); //это результирующее значение. оно и будет работать
end;

[aspid]

и опять стоп. зачем инициализация в общем списке? лучше тогда объявить их внутри процедуры. тем более, вы каждый раз задаете новый размер массива кол-ва бросков

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt2: TEdit;
    lbl2: TLabel;
    edt3: TEdit;
    lbl3: TLabel;
    edt4: TEdit;
    lbl4: TLabel;
    edt5: TEdit;
    lbl5: TLabel;
    edt1: TEdit;
    btn1: TButton;
    mm1: TMainMenu;
    D1: TMenuItem;
    chk1: TCheckBox;
    procedure btn1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;



implementation

{$R *.dfm}




procedure TForm1.btn1Click(Sender: TObject);
var
  nkub, ngran, modif, rezbr, i, znach: Integer;
  bufzn, bufmod, s: string;
  mass: array of string;

begin
rezbr:=0; 
nkub:= StrToInt(edt1.text);
ngran:=StrToInt(edt2.text);
modif:= StrToInt(edt3.text);
s:='';
SetLength (mass, nkub);
for i:=0 to nkub-1 do
    begin
       znach:=1+Random(ngran); 
       rezbr:= rezbr+znach+modif //вводите значение со знаком минус при отрицательном модификаторе
       bufzn:=IntToStr(znach);
       mass[i]:=bufzn;
       s:=s+mass[i]+' ';
    end;
edt4.Text:=s; //я так понимаю хотелось этого?
edt5.Text:=IntToStr(rezbr); //это результирующее значение. оно и будет работать
end;


procedure TForm1.D1Click(Sender: TObject);
begin
Close
end;

end.

[имбирный кот]

aspid, да, вы правы. особенно с тем, что я забыла обнулить st.

спасибо всем отвечавшим. помогли разобраться. теперь все работает, как задумывалось)