Прошу помощи в некоторых вопросах...

[cherepets]

я обычно не так делаю...

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... 


хотя наверно разницы особой нет... просто переменных меньше)

[odd]

Я лично всегда непосредственно через коды опрашиваю и не пользуюсь константами типа GA_UP или KE_KEY2. Но этот скорее вопрос личных предпочтений.

[Ksanatos]

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; 


компилится, но на вызове этой функции останавливается. В чём проблема?

[Ksanatos]

Помогите найти ошибку:

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; 


[odd]

Ошибка в цикле:

while a<>'_' do
begin
buf:=buf+a;
j:=j+1;
end; 


Переменная "a" не меняется, что приводит к зависанию.

[Ksanatos]

Kak, spravitsya s problemoy perepolneniya pamyati?

[cherepets]

покупкой другого телефона
и еще из очевидных ответов: уменшить кол-во используемых переменных

[odd]

Можно делать очистку памяти с помощью специальных библиотек, например Lib_memclean, после операций, которые отжирают много памяти.
А это такие операции:
- Работа с файлами (в том числе и ресурсами)
- Склейка длинных строк
- Распаковка/запаковка информации из/в архив
- Операции с графикой типа генерации картинок, переделке их и проч.
- Другие операции с большими объемами данных

[cherepets]

у меня почему то память всегда позже чистится и лагает прога в итоге от lib_memclean. хотя некоторые пишут, что у них норм

[Ksanatos]

Я щас делаю игру типа настольной(не знаю зачем мне это?), и с помощью lib_beta(за каторую odd огромное спасибо) делаю карту, повидимому это "жрёт всю память и рубит кайф"(сказал кто-то из друзей), и мне надо понять при стирании с помощью lib_memclean переменные в которые я запихнул картинки будут стираться или нет?

[DIMMON4IK]

Да, только создай переменную nil типа image, и ненужную картинку im:=nil; а потом вызывай clean
Впринципе пример к либе есть