1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

команды

Тема в разделе "Delphi - программирование", создана пользователем jungl3, 27 апр 2008.

  1. jungl3

    jungl3 Гость

    Репутация:
    0
    Объясните пожалуйста , что значат следующие команды :

    ...
    inherited Create;
    ...
    dx:=Round(IntPower(-1,Random(9))); dy:=Round(IntPower(-1,Random(9)));
    ...


    ...
    xx:=10+Random(Form_Main.ClientWidth-20);
    yy:=10+Random(Form_Main.ClientHeight-20);
    ....
     
  2. Yason

    Yason Гость

    Репутация:
    0
    Код:
    ...
    inherited Create; //вызываем родительский конструктор
    ...
    dx:=Round(IntPower(-1,Random(9))); //dx = округлить_до_целого((-1) в степени (случайное число от 0 до 9))
    dy:=Round(IntPower(-1,Random(9))); //аналогично
    ...
    xx:=10+Random(Form_Main.ClientWidth-20); //xx = случайная координата в пределах клиентской области окна, исключая 10 писк. по краям
    yy:=10+Random(Form_Main.ClientHeight-20); //то же самое, только по вертикали
    ....
     
  3. jungl3

    jungl3 Гость

    Репутация:
    0
    Это мой 1-й пост поэтому плюс поставить не смогу , но потом сделаю это обязательно . А пока просто спасибо.
     
Загрузка...

Поделиться этой страницей