forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)
-   -   можно ли упростить этот код (http://forum.boolean.name/showthread.php?t=8396)

mustaeed 28.05.2009 20:10

можно ли упростить этот код
 
можно ли заменить этот код чем то покороче:

if objs[i].img = 10 then begin
drawimage(obj10,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 9 then begin
drawimage(obj09,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 8 then begin
drawimage(obj08,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 7 then begin
drawimage(obj07,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 6 then begin
drawimage(obj06,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 5 then begin
drawimage(obj05,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 4 then begin
drawimage(obj04,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 3 then begin
drawimage(obj03,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 2 then begin
drawimage(obj02,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end
if objs[i].img = 1 then begin
drawimage(obj01,objs[i].x+nx-camx,128-objs[i].y-ny+camy);
end

скажем например: drawimage(obj+img,objs[i].x+nx-camx,128-objs[i].y-ny+camy);

ViNT 28.05.2009 20:42

Ответ: можно ли упростить этот код
 
drawimage(obj[objs[i].img],objs[i].x+nx-camx,128-objs[i].y-ny+camy);

где obj - массив, в котором содержатся значения obj01..obj10.

Эта строка заменяет весь код.


Часовой пояс GMT +4, время: 23:44.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot