Randomize и Image

[Tuman777]

Доброго времени суток, Уважаемые знатоки програмирования.
Помогите обуздать рандомиз. В общем проблема такая: есть 10 imag, 3 таимера. Нужно чтобы при открывании формы имиджи перемешивались как мозайка, т.е. например 1 имидж на место 4 и т.д., но не накладывались друг на друга. И чтобы это перемешивание носило непредсказуемый характер.

[mss]

Мало таймеров.
Для "обуздания рандомиза" нужно еще полсотни.

[Человек_Борща]

Ну
1, нужно TImage создавать в RunTime.
2, Нужно програмно резать картинку
3, нужен класс, который будет все это хранить.

Таймерами ты этого не сделаешь=)

А вообще:
Использовать RandomRange в котором определять номер TImage в который пихнуть также определённую через RandomRange картинку.
Правда что ты будешь делать с возможными дубликатими =) По этому лучше по человечески через написания целого класса=)

[Tuman777]

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

procedure TForm1.FormCreate(Sender: TObject);

[mss]

Таймеры не для того чтобы перемешивать имиджи, у них совсем другое предназначение

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

[Tuman777]

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

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

[Tuman777]

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

это не код а цитата

[mss]

они для того чтобы в ограниченное время выбрать правильную картинку

И всем это страшно интересно знать, особенно когда вопрос стоит конкретно про "обуздание рандомиза".

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

//тут я разукрашую 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
  pozition[i].X:=(Components[i] as TImage).Left;
  pozition[i].y:=(Components[i] as TImage).top;
  (Components[i] as TImage).Canvas.Brush.Color:=cvet[i];
  (Components[i] as TImage).Canvas.Rectangle(0,0,105,105);
end;

end;

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

[fate]

думаю сам принцип понятен