[syuta]

5. Вводятся 2 числа. Ответ формируется таким образом: берется нужное количество шариков и бросается в корзину. Число брошенных шариков отражается напротив знака «=». Потом выполняется проверка и выдается сообщение (вместо + - знак mod).

Вот пример как надо сделать.

[EvilRussian]

Значит результат - это сумма чисел из первого и второго edit'а?

А вам задачу как лучше решить - красиво или быстро?

[syuta]

Сообщение от EvilRussian

Значит результат - это сумма чисел из первого и второго edit'а?

А вам задачу как лучше решить - красиво или быстро?

Если можно и так и так

[EvilRussian]

Тогда быстро мне в падлу придумывать красивый способ

В общем так, сначала ставим на форму, допустм, двадцать TPicture с шариками, выставив им всем visible:=false в свойствах.

Затем ставим такой код в OnChange Edit'ов:

Код:

var x,y,z: integer;
begin
Picture1.Visible:-false; //так для всех картинок
...
try
 x:=strtoint(Edit1.Text);
except
 x:=0
end;
try
 y:=strtoint(Edit2.Text);
except
 y:=0
end;
z:=x+y;
if z>0 then Picture1.Visible:=True;
if z>1 then Picture2.Visible:=True;
if z>2 then Picture3.Visible:=True;
if z>3 then Picture4.Visible:=True;
if z>4 then Picture5.Visible:=True;
if z>5 then Picture6.Visible:=True;
if z>6 then Picture7.Visible:=True;
if z>7 then Picture8.Visible:=True;
if z>8 then Picture9.Visible:=True;
if z>9 then Picture10.Visible:=True;
if z>10 then Picture11.Visible:=True;
if z>11 then Picture12.Visible:=True;
if z>12 then Picture13.Visible:=True;
if z>13 then Picture14.Visible:=True;
if z>14 then Picture15.Visible:=True;
if z>15 then Picture16.Visible:=True;
if z>16 then Picture17.Visible:=True;
if z>17 then Picture18.Visible:=True;
if z>18 then Picture19.Visible:=True;
if z>19 then Picture20.Visible:=True;
end;

Вот так вот. Вопросы?

[syuta]

Сообщение от EvilRussian

Тогда быстро мне в падлу придумывать красивый способ

В общем так, сначала ставим на форму, допустм, двадцать TPicture с шариками, выставив им всем visible:=false в свойствах.

Затем ставим такой код в OnChange Edit'ов:

Код:

var x,y,z: integer;
begin
Picture1.Visible:-false; //так для всех картинок
...
try
 x:=strtoint(Edit1.Text);
except
 x:=0
end;
try
 y:=strtoint(Edit2.Text);
except
 y:=0
end;
z:=x+y;
if z>0 then Picture1.Visible:=True;
if z>1 then Picture2.Visible:=True;
if z>2 then Picture3.Visible:=True;
if z>3 then Picture4.Visible:=True;
if z>4 then Picture5.Visible:=True;
if z>5 then Picture6.Visible:=True;
if z>6 then Picture7.Visible:=True;
if z>7 then Picture8.Visible:=True;
if z>8 then Picture9.Visible:=True;
if z>9 then Picture10.Visible:=True;
if z>10 then Picture11.Visible:=True;
if z>11 then Picture12.Visible:=True;
if z>12 then Picture13.Visible:=True;
if z>13 then Picture14.Visible:=True;
if z>14 then Picture15.Visible:=True;
if z>15 then Picture16.Visible:=True;
if z>16 then Picture17.Visible:=True;
if z>17 then Picture18.Visible:=True;
if z>18 then Picture19.Visible:=True;
if z>19 then Picture20.Visible:=True;
end;

Вот так вот. Вопросы?

Какой то код не красивый, а нельзя ли через цикл for например это сделать? И как выполнить проверку?

[EvilRussian]

Picture через цикл не перебирается, что и стоило мне кучи нервных клеток (у меня на одной из форм 420 картинок)

Так что я думаю, что красиво тут надо как-то совсем по другому или никак
Хотя я могу и ошибаться - я самоучка (и относительно новичок).

[syuta]

кстати еще как выполнить проверку?