может ченить в таком духе?

Код

var AreaX:Array[1..5] of Integer=(1,2,3,4,5); AreaY:Array[1..3] of Integer=(1,2,3); begin; button1.top := AreaY [random(3)+1]; button1.left := AreaX [random(5)+1]; end;

А если занчения изменяются кратно, то так:
X := X0 + A * Random (3);
Y := Y0 + B * Random (5);

Pakshin A. S.,

Цитата

Вы думаете, что я с Random'ом не умею работать?!

видимо, не умеешь. про синтаксические ошибки я не говорю, а вот твой код обязан глючить на некоторых компах. а на некоторых - нет. потому что Randomize нельзя вызывать каждый раз перед Random, а только раз всего. вынеси её в Form.OnCreate и посмотри, что получится.

x77 Создавал кoнсоль с этим циклом, а результат один и тот же

Код

begin Randomize; for i:=1 to 10 do  writeln(Random(100)); readln; end.

P. S. Ну ошибся при наборе текста и что?!

Это сообщение отредактировал(а) Pakshin A. S. - 14.4.2004, 12:49

Pakshin A. S., странно, не встречал я таких глюков. ни в пасквиле, ни в дельфях. за всё время работы, начиная с TP6.

Подведя итог всему выше прочитанному, можно сделать выод что, у г-на Pakshin A. S. глючит процессор (т.е. выполняет ошибочную инструкцию с пл. точкой) почтиай хелп Pentium-safe FDIV operations может у тя действительно такой прикол?

я зарегестрировался и теперь demo вобщем Y должен принимать значения только 10.122.234
а X 10.58.98.146.194 но в беспорядочном положении я так понимаю это с помощью random но как задать эти значенив общем у меня должна получиться игра с бегающей кнопкой .
Кнопка в 100 пикселей и тем самым по ширене может поместиться только три книпки это Y-к,
а по высоте пять кнопок это X. можно же как нибуть задать ети значения random я уже голову поломал.

все я разобрался большее спасибо nJIaKca.spb .
В идеале это работает так :

const r=5;t=3;
var
form1: Tform1;
i:integer;
AreaX:Array[1..t] of Integer=(10,122,234);
AreaY:Array[1..r] of Integer=(10,58,98,146,194);
implementation

{$R *.DFM}

procedure Tform1.Timer1Timer(Sender: TObject);

begin;
for i:=1 to t do button1.left := AreaX [random(3)+1];
for i:=1 to r do button1.Top := AreaY [random(5)+1];
end;


Это сообщение отредактировал(а) demo - 14.4.2004, 17:55

Цитата(nJIaKca @ 14.4.2004, 15:17)

Подведя итог всему выше прочитанному, можно сделать выод что, у г-на Pakshin A. S. глючит процессор (т.е. выполняет ошибочную инструкцию с пл. точкой) почтиай хелп Pentium-safe FDIV operations может у тя действительно такой прикол?

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