|
03.03.2010, 13:19
|
#46
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
я обычно не так делаю...
key:=getkeypressed; if key=KE_KEY2 then... if key=KE_KEY8 then... key:=keytoaction(key); if key=GA_UP then... if key=GA_DOWN then...
хотя наверно разницы особой нет... просто переменных меньше)
|
(Offline)
|
|
03.03.2010, 13:33
|
#47
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Я лично всегда непосредственно через коды опрашиваю и не пользуюсь константами типа GA_UP или KE_KEY2. Но этот скорее вопрос личных предпочтений.
|
(Offline)
|
|
09.03.2010, 17:26
|
#48
|
ПроЭктировщик
Регистрация: 31.01.2010
Адрес: Россия, респ. Башкортостан, г. Бирск
Сообщений: 137
Написано 12 полезных сообщений (для 17 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
function rts (chislo : real) : string; var l : integer; r : real; st : string; begin if frac(chislo)=0 then begin if chislo<0 then st:=' '+trunc(chislo) else st:=''+trunc(chislo); end; if frac(chislo)<>0 then begin l:=trunc(chislo); r:=frac(chislo)*pow(10,length(''+frac(chislo))-1); if l<0 then st:=' '+l+'.'+r else st:=''+l+'.'+r; end; rts:=st; end;
компилится, но на вызове этой функции останавливается. В чём проблема?
|
(Offline)
|
|
24.03.2010, 19:22
|
#49
|
ПроЭктировщик
Регистрация: 31.01.2010
Адрес: Россия, респ. Башкортостан, г. Бирск
Сообщений: 137
Написано 12 полезных сообщений (для 17 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Помогите найти ошибку:
for i:=1 to mapy-1 do begin st:=readline(map); if getchar(st,0)<>'.' then begin j:=0; a:=getchar(st,j); while a<>'_' do begin buf:=buf+a; j:=j+1; end; l:=trunc(stringtointeger(buf)); j:=j+1; a:=getchar(st,j); while (a<>';') or (a<>'.') do begin buf:=buf+a; j:=j+1; end; r:=trunc(stringtointeger(buf)); for j:=1 to r-l+1 do drawimage(wallstyle,l+j*20-3,i*20-3); if a=';' then begin st:=copy(st,length(''+l+'_'+r+';')+1,length(st)+1); i:=i-1; end; end; end;
|
(Offline)
|
|
25.03.2010, 19:04
|
#50
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Ошибка в цикле:
while a<>'_' do begin buf:=buf+a; j:=j+1; end;
Переменная "a" не меняется, что приводит к зависанию.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
01.04.2010, 13:52
|
#51
|
ПроЭктировщик
Регистрация: 31.01.2010
Адрес: Россия, респ. Башкортостан, г. Бирск
Сообщений: 137
Написано 12 полезных сообщений (для 17 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Kak, spravitsya s problemoy perepolneniya pamyati?
|
(Offline)
|
|
01.04.2010, 21:49
|
#52
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
покупкой другого телефона
и еще из очевидных ответов: уменшить кол-во используемых переменных
|
(Offline)
|
|
02.04.2010, 13:23
|
#53
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Можно делать очистку памяти с помощью специальных библиотек, например Lib_memclean, после операций, которые отжирают много памяти.
А это такие операции:
- Работа с файлами (в том числе и ресурсами)
- Склейка длинных строк
- Распаковка/запаковка информации из/в архив
- Операции с графикой типа генерации картинок, переделке их и проч.
- Другие операции с большими объемами данных
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
02.04.2010, 20:37
|
#54
|
Бывалый
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений (для 215 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
у меня почему то память всегда позже чистится и лагает прога в итоге от lib_memclean. хотя некоторые пишут, что у них норм
|
(Offline)
|
|
19.04.2010, 15:35
|
#55
|
ПроЭктировщик
Регистрация: 31.01.2010
Адрес: Россия, респ. Башкортостан, г. Бирск
Сообщений: 137
Написано 12 полезных сообщений (для 17 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Я щас делаю игру типа настольной(не знаю зачем мне это?), и с помощью lib_beta(за каторую odd огромное спасибо) делаю карту, повидимому это "жрёт всю память и рубит кайф"(сказал кто-то из друзей ), и мне надо понять при стирании с помощью lib_memclean переменные в которые я запихнул картинки будут стираться или нет?
|
(Offline)
|
|
19.04.2010, 20:38
|
#56
|
Знающий
Регистрация: 21.07.2009
Адрес: Украина
Сообщений: 219
Написано 44 полезных сообщений (для 78 пользователей)
|
Ответ: Прошу помощи в некоторых вопросах...
Да, только создай переменную nil типа image, и ненужную картинку im:=nil; а потом вызывай clean
Впринципе пример к либе есть
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 13:59.
|