Randomize и Image

[Tuman777]

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

[fate]

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

[Tuman777]

fate

спасибо тебе большое, я так и сделаю. поспешишь людей насмешишь.
хотя не откажусь от помощи

[fate]

ну если что-то в коде будет не понятно, пиши

[Tuman777]

fate

если тебя не затруднит, дай краткое описание. разобраться в этом коде у меня займет не мало времени. а время поджимает.
если даже затруднит все равно спасибо

[fate]

procedure TForm1.Button1Click(Sender: TObject);
var i:byte; p:word;
begin
for i:=0 to ComponentCount-1 do //перебираем все компоненты на форме
if Components[i] is TImage then begin //если компонент является TImage 
repeat  
p:=random(length(pozition));  //присваиваем переменой p рандомное значение от 0 до длинны массива
until (pozition[p].X<>0)and(pozition[p].y<>0);  //если значение по x и по у не равно нулю идем дальше если равно 0 то продолжаем цикл до того пока не наступит "благоприятное условие"
(Components[i] as TImage).Left:=pozition[p].X; // присваеваем новое значение
(Components[i] as TImage).top:=pozition[p].y;
ZeroMemory(@pozition[p],sizeof(pozition[p])); // обнуляем элемент массива что бы не получилось что выбирается одно и то же значение
end;

end;

//тут я разукрашую 6 имеджей на форме в разные цвета
procedure TForm1.Button2Click(Sender: TObject);
const cvet:array[0..5]of Tcolor=(clBlue,clWhite,clGreen,clYellow,clred,cllime);
var i:byte;
begin
for i:=0 to ComponentCount-1 do  //перебираем все компоненты на форме
if Components[i] is TImage then begin  //если компонент является TImage 
  pozition[i].X:=(Components[i] as TImage).Left; //тут я заполняю массив pozition первичными данными
  pozition[i].y:=(Components[i] as TImage).top;

//это тебе не нужно, здесь здесь я разукрашиваю Image для наглядности
  (Components[i] as TImage).Canvas.Brush.Color:=cvet[i];
  (Components[i] as TImage).Canvas.Rectangle(0,0,105,105);
end;

end;

[Tuman777]

скрин 11 просто форма
скрин 12 после запуска.
куда все делось

procedure TForm1.Button1Click(Sender: TObject);
var i:byte; p:word;
pozition:array[0..5]of TPoint;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TImage then begin
repeat
p:=random(length(pozition));
until (pozition[p].X<>0)and(pozition[p].y<>0);
(Components[i] as TImage).Left:=pozition[p].X;
(Components[i] as TImage).top:=pozition[p].y;
ZeroMemory(@pozition[p],sizeof(pozition[p]));
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
const cvet:array[0..5]of Tcolor=(clBlue,clWhite,clGreen,clYellow,clred,cllime);
var i:byte;
pozition:array[0..5]of TPoint;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TImage then begin
  pozition[i].X:=(Components[i] as TImage).Left;
  pozition[i].y:=(Components[i] as TImage).top;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
end.

что я не так сделал???????

[Tuman777]

вот скрины

[fate]

куда все делось

а что должно быть? у тебя ж все имедж пустые, я думал у тебя там картинки какие-то планируются быть

[fate]

1. если у тебя 5 имеджей на форме, уменьши размер массива pozition.
2. pozition должен быть объявлен глобально а не в каждой процедуре