ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / images
4 сообщений из 4, страница 1 из 1
images
    #32227038
jooo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jooo
Гость
procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок.bmp');

if random(9)= 1 then image2.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random (10) = 3 then image3.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random (9) = 2 then image4.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random(10)= 4 then image5.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random (9) = 5 then image6.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random (10) = 6 then image7.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random(9)= 7 then image8.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');
if random (10) = 8 then image9.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp');


end;
как записать чтобы всё ето работало от одного гинератора
а то тут как я понял для каждого image отдельный гинератор
...
Рейтинг: 0 / 0
05.08.2003, 09:30
| Ответить | Цитировать | Написать  
images
    #32227048
alex_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_k
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure TForm1.Image1Click(Sender: TObject); 
var k:integer;
begin 
image1.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок.bmp'); 
k:=random( 10 );
if k=  1  then image2.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp'); 
if k=  3  then image3.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp'); 
if k =  2  then image4.Picture.LoadFromFile('C:\WINDOWS\Рабочий стол\delphi-7\delphi своё\Точечный рисунок (2).bmp'); 


end;

тока я нихуя непонял, нахуя это надо...
...
Рейтинг: 0 / 0
05.08.2003, 09:45
| Ответить | Цитировать | Написать  
images
    #32227051
jooo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jooo
Гость
учусь понял
...
Рейтинг: 0 / 0
05.08.2003, 09:55
| Ответить | Цитировать | Написать  
images
    #32227132
Guest_Paul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest_Paul
Гость
Купил бы ты книжку себе и учился бы по ней, а не вызнавал бы азы на форуме.
Пользы для тебя было бы больше.
...
Рейтинг: 0 / 0
05.08.2003, 10:48
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / images
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]