![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
![]() Freedom Fighter Сообщений: 1 852 Спасибо сказали: 4031 раз ![]() |
Задача чуть-чуть сложнее, но это не суть... Заткнулся на кусочке где нужно шэйп раз в шаг таймера двигать на 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; -------------------- In this wild and woolly universe of ours, there are only three things you can count on: your brains, your bros, and your bike! |
|
|
![]() |
![]()
Сообщение
#2
|
|
![]() •●Revolucionario●• Сообщений: 2 467 Спасибо сказали: 5936 раз ![]() |
Цитата А если на русском? Хирт - вуй. Все по аналогии (же). Цитата Макросы ? Помилуй, Хрона, начни уже читать о проектировании языков программирования, безопасной разработке программного обеспечения и доказательном программирования. Ну, почитала: http://nemerle.org/Macros Цитата Она раскрывается компилятором в коде, но это деталь реализации определённого компилятора. Тогда, простите, может еще к System.Pi следует относиться как функции ? Цитата Свойства по ссылке передаваться не могут по понятным причинам. По ссылке, в данном случае, может быть передан адрес соотв. поля в памяти. ...Я уж не говорю, что вообще-то должны, ибо на то оно и ЯВУ. Абстракция. -------------------- life MOV.I #life+1, *life
האם יש זמן לעצור ? |
|
|
![]() ![]() |
Текстовая версия | Сейчас: 30 August 2025 - 14:35 |
Copyright by Алексей Крючков
![]() Programming by Degtyarev Dmitry |
|