Где ошибка?

[[Smarik]]

Уже 2-3 часа не могу понять!
Описал глобальные переменный

var
Form1: TForm1;
hp,at,de,br:integer;

далее создал RadioGroup1 в нем выбираешь персонажа и в зависимости от того какого персонажа выбрал присваиваются характеристики (сила,ловкость и прочее)

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0:begin
image1.visible:=false;
image2.visible:=false;
image3.visible:=false;
image4.visible:=false;
image5.visible:=false;
image6.visible:=false;
image4.Visible:=true;
label2.caption:='Воин';
hp:=7;
at:=7;
de:=6;
br:=8;
end;

теперь если я в процедуре TForm1.RadioGroup1Click поставлю label3.caption:=и переменные hp at и.т.д то он выведит их содержимое(и то при условии что вывод будет в form2) если поставить label3 с переменными в другой процедуре, то содержимое переменных будет 0, почему так?

[Dj_smart]

Я тут ничего не пойму. Ты в начале присвоил им значения? Эта процедура вызовется только когда на RadioGroup1 ктото кликнет. А пока все твои переменные будут=0. Понял мысль?

[mihali4]

Я тоже мало что понял.
В коде - Label2, а речь идет о каком-то Label3...
Что касается глобальных переменных, может стоит при создании формы присвоить им некие первоначальные значения - инициализировать?
А может быть, речь вообще идет о том, что переменные из Form1 не видны в Form2 ? Так тогда нужно в Form2 просто указывать принадлежность переменной, например - Unit1.BR, а не просто BR.

[[Smarik]]

ну я уже присвоил всем переменным 0 в радиогруп1 изменил на at:=at+6; но при нажатии переменные как были 0 так и остались, наводит на мысль что label не может динамически изменяться без нажатия кнопок, ето так? Есть какие то варианты динамического изменения?

[One.Love]

у тебя переменные типа integer не забывай!
Ты выводишь их в каких то из label`ов, юзай inttostr пробуй присвоить отдельным label`ам свои переменные TryStrToInt(Label1.Caption, hp);
а вообще если честно незнаю поможет тебе это или нет, так как я не понял точно что тебе нужно :gigi:

[Stilet]

наводит на мысль что label не может динамически изменяться без нажатия кнопок, ето так?

Лабель в принципе не может изменяться без определенной команды.
Ты весь код выложи если он не большой, ато у тебя дале case не закрыт.