помогите с делфи - Форум

Страница 1 из 1 1
Модератор форума: No_MaTTeR, Dimitro, LightInDarkness

помогите с делфи (выходит ошибка)

помогите с делфи

Maksatik

Скаут

Репутация: 0

Код

Var
  Form3: TForm3;
   x,i,g,k,a,b,c :integer;
   black: array [1..18] of Integer;
   red: array [1..18] of Integer;

procedure TForm3.Button3Click(Sender: TObject);
begin
k:= random(36);
a:=StrToInt(Edit3.text);
b:=StrToInt(Edit4.text);
edit2.text:=inttostr(k);
g:=strtoint(edit1.text);
b:=b-a;
if g=k then
begin
showmessage('x18');
c:=a*18;
b:=b+c;

end;
if RadioButton1.Checked=true then
begin
for i:=1 to 18 do
if black=k then
begin
showmessage('x2');
c:=a*2;
b:=b+c;
end;
end;
if RadioButton2.Checked=true then
begin
for i:=1 to 18 do
if red=k then
begin
showmessage('x2');
c:=a*2;
b:=b+c;
end;
end;

end;

[Warning]Unit3.pas(99): For loop control variable must be simple local variable
[Warning]Unit3.pas(109): For loop control variable must be simple local variable

Сообщение # 1 написано 08.03.2016 в 11:52

volume

Маршал

Репутация: 2462

Приходишь с чужим кодом, и хочешь, чтобы тебе помогли.

Сообщение # 2 написано 08.03.2016 в 19:19

UNoiMen

Скаут

Репутация: 5

Если я правильно понял, переменная используемая в цикле(i), должна быть объявлена как переменная процедуры, а не глобально

Дешевые Steam игры!

Сообщение # 3 написано 09.03.2016 в 21:04

помогите с делфи (выходит ошибка)

Страница 1 из 1
1

Вход на портал