Или я дурак или одно из двух, Простой вопрос по Дэлфи Опции

[Throutle]

Задача чуть-чуть сложнее, но это не суть... Заткнулся на кусочке где нужно шэйп раз в шаг таймера двигать на 1 вверх или вниз и на 1 влево или вправо, вроде всё должно быть просто, но не работает: постоянно движется вверх-влево... Никак не пойму в чём может быть проблема...

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
if random(1)>0 then Shape1.Top:=Shape1.Top+1 else Shapes.Top:=Shapes[1].Top-1;
randomize;
if random(1)>0 then Shape1.Top:=Shape1.Top+1 else Shapes.Top:=Shapes[1].Top-1;
end;

[Guevara-chan]

Не поленилась, вот, дизассемблировать свой вариант RandomSgn:

Код

push dword 0x1
call dword 0x4054fb
mov ebx, eax
neg ebx
or ebx, 0x1

...и, дабы уж сразу, аналог by Berserker...

Код

push dword 0x1
call dword 0x4054fb
mov ebx, eax
add ebx, ebx
neg ebx
inc ebx

Дело, в принципе, хозяйское (+/- операнд). Suum cique.