генератор чисел и смена картинки

[py6jlb]

Доброго времни суток. Тема такая: хочу чтоб при нажатии на кнопку срабатывал генератор случайных чисел от 0 до 1, и в зависимости от получившегося результата в Timage менялся рисунок. помогите все это в кучу собрать, я по отдельности со всеми частями разобрался, а собрать кучу никак не получаеться. Заранее спасибо!

[3D Hunter]

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

[py6jlb]

Вот так запускаеться генератор который сохраняет в переменную число от 0 до 1, если я правильно все понял, дело в том что дельфи увлекался давно, и сейчас пытаюсь вспомнить....

procedure TMainForm.Button1Click(Sender: TObject);
var
B : Integer;
begin
randomize;
B :=random();
end;

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

[Delphi_ProGer]

py6jlb

Думаю что как-то так:

procedure TMainForm.Button1Click(Sender: TObject);
var
B : Integer;
begin
randomize;// мне кажеться, что нужно вызывать его только раз, например в //OnCreate
B :=abs(random(1)); // по идее должно выдать или 0 или 1
if B=1 then Image1.picture.loadfromfile('pic_1.bmp')
else
Image1.Picture.LoadFromFile('pic_0.bmp');
end;

[phomm]

Учим матчасть!
Random+F1:
без аргумента создаёт число от 0 до 1 в виде дробного.
с аргументом в виде целого числа N создаёт случайное из диапазона 0..N-1

отсюда вывод - создание числа строго 0 или 1 надо производить командой

b := random(2);

Код для загрузки изображения от Delphi_ProGer можно упростить так:

Image1.Picture.LoadFromFile('pic_' + inttostr(b) + '.bmp');

естественно, что это будет работать при четкой нумерации файлов согласно коду.

[Serge_Bliznykov]

randomize;// мне кажеться, что нужно вызывать его только раз, например в //OnCreate

угу. вы абсолютно правы. Randomize надо убрать из процедуры Button1Clcik и поместить на любое другое событие, происходящее при загрузке приложения/формы. Например, на событие формы OnCreate.

B :=abs(random(1));

во-первых, это ошибка!, ваш код ВСЕГДА будет возвращать НОЛЬ. (читайте описание функции Random)
надо так: B:=random(2);

в во-вторых, а функция ABS() тут зачем?! Она здесь АБСОЛЮТНО не нужна!


Добавлено
phomm, угу. всё так. я не обновил открытую страничку, поэтому не увидел сразу Ваш ответ...

[py6jlb]

Спасибо всем за ответы, вопрос такой, если убрать randomize из Button1Clcik и перенести в OnCreate, то он будет срабатывать всего однин раз, а мне нужно чтоб при каждом новом нажатии генератор запускался снова, как все это лучше реализовать?

[VintProg]

phomm
py6jlb

Чем то ники, похожи, между собой :D

randomize, один раз вызывается, а потом уже можно много раз рандом делать.

[py6jlb]

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

[Delphi_ProGer]

Сообщение от py6jlb

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

Ресурсы, imagelist(думаю, что плохой вариант), есть и другие способы(но я не знаю какие , пусть профи напишут, или кто знает).

А если картинки всего 2, то можно создать 2 имейджа, и в программе, зависимо от условия, изменять значение свойства Visible.