MobPascal

Активность

MobPascal

29.12.2011 / 17:55	#126767 Скопировать ссылку Скопировать как BB-код Перейти к посту
XakepPRO Модератор форума Сейчас: Offline Регистрация: 20.06.2012	Magatino, Вместо цикла сам вручную загрузи изображения.

29.12.2011 / 18:38	#126797 Скопировать ссылку Скопировать как BB-код Перейти к посту
Magatino Администратор Сейчас: Offline Имя: Alexandr Откуда: Где Ленин родился. Simbirsk City Регистрация: 28.01.2011	XakepPRO, Так работает,я вот заметил одну вещь, Preverifer не всегда проверифецирует.

29.12.2011 / 18:50	#126799 Скопировать ссылку Скопировать как BB-код Перейти к посту
Andrey Пользователь Сейчас: Offline Имя: Андрей Откуда: Запорожье Регистрация: 24.10.2011	Брат,ты перед begin обьяви функцию а в цикле напиши intToStr

29.12.2011 / 19:00	#126800 Скопировать ссылку Скопировать как BB-код Перейти к посту
XakepPRO Модератор форума Сейчас: Offline Регистрация: 20.06.2012	Andrey, её не нужно объявлять. Она стандартная. Magatino, всегда.

29.12.2011 / 19:14	#126802 Скопировать ссылку Скопировать как BB-код Перейти к посту
Magatino Администратор Сейчас: Offline Имя: Alexandr Откуда: Где Ленин родился. Simbirsk City Регистрация: 28.01.2011	XakepPRO, Не всегда,это точно,проверял только что.

29.12.2011 / 19:29	#126807 Скопировать ссылку Скопировать как BB-код Перейти к посту
XakepPRO Модератор форума Сейчас: Offline Регистрация: 20.06.2012	Magatino, пример в студию.

29.12.2011 / 19:49	#126809 Скопировать ссылку Скопировать как BB-код Перейти к посту
Magatino Администратор Сейчас: Offline Имя: Alexandr Откуда: Где Ленин родился. Simbirsk City Регистрация: 28.01.2011	XakepPRO, Я его стёр ,подожди 30 минут

29.12.2011 / 19:58

Magatino

Администратор

Сейчас: Offline

XakepPRO, Вот

[копировать] [скачать]
program name;
var
x,y,d,t,i:integer;
an:array[12] of image;
begin
an[0]:=loadimage('/1.gif');
an[1]:=loadimage('/2.gif');
an[2]:=loadimage('/3.gif');
an[3]:=loadimage('/4.gif');
an[4]:=loadimage('/5.gif');
an[5]:=loadimage('/6.gif');
an[6]:=loadimage('/7.gif');
an[7]:=loadimage('/8.gif');
an[8]:=loadimage('/9.gif');
an[9]:=loadimage('/10.gif');
an[10]:=loadimage('/11.gif');
an[11]:=loadimage('/12.gif');
x:=200;
y:=100;
d:=1;
t:=0;
begin
repeat
drawtext(''+chr(49+d),50,50);
drawimage(an[d],x,y);
delay(10);
repaint;
t:=t+1;
if (t>=6) then t:=0;d:=d+1;
if (d>=12) then d:=1;
if (d=3) or (d=5) or (d=10) then x:=x-4;
sc(255,255,255);fr(0,0,240,320);
until false;
end;
end.

Выходит ошибка:
failed to write to file
А если убрать строчку drawtext(''+chr(49+d),50,50); то проверифецирует без ошибок.

29.12.2011 / 20:07	#126813 Скопировать ссылку Скопировать как BB-код Перейти к посту
XakepPRO Модератор форума Сейчас: Offline Регистрация: 20.06.2012	Magatino, странно..

29.12.2011 / 20:08	#126815 Скопировать ссылку Скопировать как BB-код Перейти к посту
kiriman Пользователь Сейчас: Offline Имя: Кирилл Откуда: Красноярск Регистрация: 18.01.2010	Magatino, Мог бы для приличия в цикле графику грузить)

<< 1 ... 31 32 33 34 35 ... 123 >>

Всего сообщений: 1221

Фильтровать сообщения

Поиск по теме

Файлы топика (97)