но обнаружил баг =( когда мешаю карты приложение иногда зависает и вырубается
я так понял проблема с этим циклом
for pos:=1 to 20 do
begin
repeat
empty:=True;
r:=randomRange(1, 21);
for n:=1 to pos do
if (card[n]=r) then empty:=False;
until empty=true;
card[pos]:=r;
Memo1.Lines.Add(inttostr(card[pos]));
end;
тут генерируется числа от 1 до 20.. каждое число уникальное..
что неужели для современных гаджетов это очень мощная нагрузка на проц? сгенерировать таким образом 20 чисел?
кстати если я меняю строчку r:=randomRange(1, 21); на r:=random(19)+1; то вообще открывается только чёрный экран и ничего не видно... =(
Может быть кто нибудь знает как это ещё можно записать?
Вопрос
neo
Всем привет! я тут сделал пасьянс на Андройд
но обнаружил баг =( когда мешаю карты приложение иногда зависает и вырубается
я так понял проблема с этим циклом
for pos:=1 to 20 do begin repeat empty:=True; r:=randomRange(1, 21); for n:=1 to pos do if (card[n]=r) then empty:=False; until empty=true; card[pos]:=r; Memo1.Lines.Add(inttostr(card[pos])); end;
тут генерируется числа от 1 до 20.. каждое число уникальное..
что неужели для современных гаджетов это очень мощная нагрузка на проц? сгенерировать таким образом 20 чисел?
кстати если я меняю строчку r:=randomRange(1, 21); на r:=random(19)+1; то вообще открывается только чёрный экран и ничего не видно... =(
Может быть кто нибудь знает как это ещё можно записать?
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.