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

[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]

Тебя совсем не смущает, что вариант ф-ии 'random' для целых значений выдает диапазон от 0 до аргумента - 1 ?

[tolich]

random(2) надо.

[Guevara-chan]

">0" не надо. И еще автору кода хорошо бы проспаться, как по мне: "Shapes.Top:=Shapes[1].Top-1;" - это как-то совсем угнетающе...

[tolich]

>> ">0" не надо.
Как раз надо. Или "=0", или "=1", или "<1". Это Pascal, здесь Integer нельзя использовать вместо Boolean.

[Throutle]

">0" не надо. И еще автору кода хорошо бы проспаться, как по мне: "Shapes.Top:=Shapes[1].Top-1;" - это как-то совсем угнетающе...

Скован в выборе способа, сказали таким макаром двигать...
По поводу проспаться не помешало бы, но и сделай скидку на то, что я этим занимаюсь первый год по 1 часу раз в две недели, с толпой народа...

>> ">0" не нада
Как раз надо. Или "=0", или "=1", или "<1". Это Pascal, здесь Integer нельзя использовать вместо Boolean.

Угу тут нтак не кати,разве только окольными путями.

Так как правильното будет?

[tolich]

Я давно писал на Delphi и совсем не помню, можно ли там перегружать operator []. Если нельзя, то к одной и той же переменной ты обращаешься с индексом и без, я не знаю, какое обращение правильное.

[gamecreator]

насколько я помню, в дельфи нельзя перегружать ничего

[hippocamus]

В Делфи начиная с 2006 перегружать операторы можно. Только зачем?
Но попробуй убрать один randomize. А лучше оба из цикла. Сбрось генератор 1 раз при инициализации.

[Etoprostoya]

Или я дурак или одно из двух

А где опрос?

[gamecreator]

если бы ты учил матан (конкретно - пределы), то знал бы почему его нет

[Guevara-chan]

Или "=0", или "=1", или "<1". Это Pascal, здесь Integer нельзя использовать вместо Boolean.

А, ну да, Вирт центрального процессора же... Тогда "=0", там хоть можно обойтись and reg, reg вместо cmp reg, imm. Байт, но приятно.

Если нельзя, то к одной и той же переменной ты обращаешься с индексом и без, я не знаю, какое обращение правильное.

И самое смешное, что ровно до этого автор пишет: "Shape1.Top:=Shape1.Top+1". Кстати говоря, это называется "Inc(Shape1.Top)".

[gamecreator]

Байт, но приятно.

это уже от оптимизации зависит. емнип, рандом выдает int16, так что как минимум 2 байта там будет.

[FBX]

Inc(Shape1.Top)

Вроде так нельзя делать, т.к. это property, реализованный через сеттеры и геттеры, а может в новых дельфях можно, я даже и не знаю.

[Guevara-chan]

емнип, рандом выдает int16, так что как минимум 2 байта там будет.

Изменяет:

function Random ( LimitPlusOne : Integer ) : Integer

...А Integer нынче приравнян к Int32...

Вроде так нельзя делать, т.к. это property, реализованный через сеттеры и геттеры, а может в новых дельфях можно, я даже и не знаю.

AFAIR эту проблемe решили вводом полновесной перегрузки: INC же оператором считается ?

[Berserker]

Вирт центрального процессора же

Это неудачный юмор?

По теме: одно из двух.

Вроде так нельзя делать, т.к. это property, реализованный через сеттеры и геттеры, а может в новых дельфях можно, я даже и не знаю.

Верно. И INC - предопределённая процедура.

[gamecreator]

Это неудачный юмор?

наверно все же намек на то, что особенности синтаксиса языка каким-то макаром влияют на результирующий код. тот же inc должен работать со свойствами, имеющими сет и гет одновременно и являющимися по сути синтаксическим сахаром.

[Guevara-chan]

Это неудачный юмор?

Это recordatio stultitia. Причем бессмысленной и беспощадной. Кстати, коли уж мы заговорили о булевой логике:

Код

Macro RandomSgn() : (1 | -Random(1)) : EndMacro
; Выдает единицу со случайным знаком.

...Так что никаких (y)if(f)’ов там, по большому счету, не нужно. Но сможет ли ОП адаптировать такой сложный код ?

И INC - предопределённая процедура.

Вроде местный аналог макрокоманды, если не ошибаюсь.

[Berserker]

Это recordatio stultitia. Причем бессмысленной и беспощадной.

А если на русском? Это такой язык, который не японский, латинский и не английский.

...И никаких (y)if(f)’ов здесь, по большому счету, не нужно.

Макросы? Помилуй, Хрона, начни уже читать о проектировании языков программирования, безопасной разработке программного обеспечения и доказательном программирования. Иначе всю жизнь вокруг тактов, байтов и низкоуровневых вещей ходить будешь.

Код

FUNCTION RandSign: INTEGER;
BEGIN
  RESULT := 1 - 2 * Random(2);
END;

Вроде местный аналог макрокоманды, если не ошибаюсь.

Ошибаешься. Это предопределённая процедура System.INC. Она раскрывается компилятором в коде, но это деталь реализации определённого компилятора.

наверно все же намек на то, что особенности синтаксиса языка каким-то макаром влияют на результирующий код. тот же inc должен работать со свойствами, имеющими сет и гет одновременно и являющимися по сути синтаксическим сахаром.

INC это предопределённая процедура, принимающая аргумент по ссылке (VAR). Свойства по ссылке передаваться не могут по понятным причинам. В конечном итоге они могут вести к функциям.

[Guevara-chan]

А если на русском?

Хирт - вуй. Все по аналогии (же).

Макросы ? Помилуй, Хрона, начни уже читать о проектировании языков программирования, безопасной разработке программного обеспечения и доказательном программирования.

Ну, почитала: http://nemerle.org/Macros

Она раскрывается компилятором в коде, но это деталь реализации определённого компилятора.

Тогда, простите, может еще к System.Pi следует относиться как функции ?

Свойства по ссылке передаваться не могут по понятным причинам.

По ссылке, в данном случае, может быть передан адрес соотв. поля в памяти.
...Я уж не говорю, что вообще-то должны, ибо на то оно и ЯВУ. Абстракция.