|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.02.2014, 20:24 | #11 |
Участник клуба
Регистрация: 10.08.2010
Сообщений: 1,389
|
doktor255 Мне интересно почему вы молчите ? Мне так кажется что вы злитесь Смотрим задача и какой компонент есть " не нужных " и условия задачи выполняется ! и что вы показывайте меня { Свойства ProgressBar } повторяю! На данный момент это без разница
E_MAIL: rijgvina7@yahoo.com
|
22.02.2014, 20:36 | #12 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
Отнюдь. Мне не на что злится. Я указываю на ошибки логики, и это уж точно не злость.
А если у топикстартера TTrogressBar имеет максимум 10 000 позиций, и каждую тысячную позицию нужно работать с Image, Ваш код выполнится все десять раз, или только единожды? |
22.02.2014, 20:41 | #13 | |
Участник клуба
Регистрация: 10.08.2010
Сообщений: 1,389
|
Цитата:
Код:
var i: integer; begin ProgressBar1.Position := ProgressBar1.Position +1; if ProgressBar1.Position = ProgressBar1.Max then begin Randomize; i:=random(2); case i of 0:begin Image1.Visible := True; Image2.Visible := True; end; 1:begin Image3.Visible := True; Image4.Visible := True; end; end; end; if ProgressBar1.Position = ProgressBar1.Max then begin Timer1.Enabled := False; ProgressBar1.Position:=0; end; end; http://takebin.com/u/3ffEA75998
E_MAIL: rijgvina7@yahoo.com
|
|
22.02.2014, 20:51 | #14 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
Сразу нужно давать правильное решение. Иначе помощь превращается в медвежью услугу.
|
22.02.2014, 21:03 | #15 |
Участник клуба
Регистрация: 10.08.2010
Сообщений: 1,389
|
doktor255 Но вы меня извините , Не всегда обязательно давать готовы решения скажу больше ! Иногда вредно давать готовые решения . Переделать код #8 как на #13 на это не стоит говорить
E_MAIL: rijgvina7@yahoo.com
|
22.02.2014, 21:12 | #16 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
А решения с ошибками давать не вредно? Спор считаю оконченным. Ошибки были, я на них указал, ошибки исправлены. Более мусолить нечего.
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отображение картинок idhttpserver | bookkc | Помощь студентам | 11 | 27.12.2011 17:40 |
Рандомное заполнение | MaxiCool | Помощь студентам | 1 | 15.04.2011 18:04 |
как нужно изменить код, что бы отображение картинок было корректным? | Garret13 | Помощь студентам | 0 | 10.05.2010 19:05 |
Отображение картинок | Syltan | HTML и CSS | 0 | 03.04.2010 19:41 |
Отображение картинок или метафайлов на форме. | Hellen | Общие вопросы Delphi | 3 | 19.02.2007 10:44 |