Вниз  MIDlet Pascal
<< 1 ... 108 109 110 111 112 ... 160 >>
- 31.01.2014 / 23:22
#316086
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
Helltar, Затралил лалку :gg:
- 31.01.2014 / 23:25
#316087
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Virus-ON (31.01.2014/23:21)И возвращать ничего не надо...Однако картинки не отрисовываются, проверял
Helltar, в оригинале все на своих местах :gg: Торопился
__________________
 わからない！！
- 31.01.2014 / 23:27
#316088
Helltar
  Пользователь
Helltar 
Сейчас: Offline
Однако картинки не отрисовываются, проверял:gg:

  1. imgRes[j] := LoadImage('/' + IntegerToString(j) + '.png');

- 31.01.2014 / 23:34
#316089
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Helltar, Пост #316084
Типо я тупой и не знаю элементарных вещей, а хочу прыгнуть выше головы? Ну тогда объясните на пальцах, как вывести изображение из массива, который в свою очередь был заполнен процедурно.
А также звуки.

Насмешники блин
__________________
 わからない！！
- 31.01.2014 / 23:35
#316090
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Helltar,
  1. imgRes[j] := LoadImage(IntegerToString(j) + '.png');
в основном коде замечательно работает без всяких слешей, как понимать?
__________________
 わからない！！
- 31.01.2014 / 23:42
#316091
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Так, с этим разобрался, разобрался. Добавляю везде слеши

Остается вопрос с массивами чисел, там уже слеш не добавить
__________________
 わからない！！
- 31.01.2014 / 23:43
#316092
Helltar
  Пользователь
Helltar 
Сейчас: Offline
Насмешники блинВоу воу, я просто увидел ошибку, чо.

Ну тогда объясните на пальцах, как вывести изображение из массива, который в свою очередь был заполнен процедурно.
  1. var
  2.   imgRes: array[0..9] of Image;
  3.  
  4. procedure LoadImage;
  5. var
  6.   i: Integer;
  7.  
  8. begin
  9.    for i := 0 to 9 do
  10.      imgRes[i] := LoadImage('/' + IntegerToString(i) + '.png');
  11. end;
  12.  
  13. begin
  14.   LoadImage;
  15.   DrawImage(imgRes[1], 0, 0);
  16.   Repaint;
  17.   Delay(5000);
  18. end.

upd: О, уже разобрался :gg:
Изменено Helltar (31.01 / 23:44) (всего 2 раза)
- 31.01.2014 / 23:47
#316093
Helltar
  Пользователь
Helltar 
Сейчас: Offline
ВитаминКО, а что с массивами чисел?
- 1.02.2014 / 00:18
#316099
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
  1. procedure botDelaetHod;
  2. begin
  3.  q[2]:=10;
  4.  m[2]:=m[2]-q[2];
  5. end;
  6.  
  7. begin
  8.  botDelaetHod;
  9.  drawString(integerToString(q[2]), 2, 2);
  10.  drawString(integerToString(m[2]), 5, 5);
  11. end.

__________________
 わからない！！
Изменено ВитаминКО (1.02 / 00:19) (всего 1 раз)
- 1.02.2014 / 00:22
#316100
Helltar
  Пользователь
Helltar 
Сейчас: Offline
ВитаминКО, эммм... что не так? Процедура не присваивает значений?

Больше кода, с var.
<< 1 ... 108 109 110 111 112 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)