VPF::Ошибка при загрузки изображения

Volkogriz

Дата 13.1.2009, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Помогите разобраться пожалуйста что не так?
Вот код:

Код


procedure ImageLod;
var
nums: array [0..112] of Integer;
i,r,j: Integer;
ImImage:TStrings;
begin
Randomize;
 for i := 1 to 112 do
   nums[i] := i;
 for i := 1 to 112 do begin
   r := Random(113-i);
Form3.Image3.Picture.LoadFromFile(extractfilepath(Application.ExeName)+'Data\Wall\Nature'+inttostr(nums[r])+'.jpg');
  for j := r to 113-i-2 do
     nums[j] := nums[j+1];

end;
end;


procedure TForm3.Timer1Timer(Sender: TObject);
begin
 ImageLod;
end;

А вот Ошибка

Откуда такие цыфры? smile

С уважением,
Volkogriz!

Это сообщение отредактировал(а) Volkogriz - 13.1.2009, 00:24

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Akella

Дата 13.1.2009, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Там же ясно написано, что файл не найден. Ты уверен, что файл с таким сгенерированным именем существует?

Volkogriz

Дата 13.1.2009, 00:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1

Akella
Откуда он взял что надо искать с таким именем?
Вот что меня интересует!!! smile

И не как понить не могу!!! smile

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

THandle

Дата 13.1.2009, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Это жесть. smile

В таймере, столько циклов и столько раз грузить картинку в Image.
Зачем все эти nums?

Просто нельзя загрузить картинку от Random(113), куда все эти цифры?

А вообще, ИМХО:

Код


 for i := 1 to 112 do begin
   r := Random(113-i);

Чему тут максимально может быть равен i? 112
Чему тут минимально может быть равен r? 113 - 112 = 1 or 0

А теперь тут смотрим:

Код


  for j := r to 113-i-2 do
     nums[j] := nums[j+1];

Представим что r минимален, а i соответственно максимален. Тогда чему это все безобразие равно?

113 - i - 2 = 113 - 112 - 2 = - 1.

Вот и ошибка.
А вообще насчет кода я уже сказал.

Akella

Дата 13.1.2009, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(Volkogriz @ 13.1.2009, 00:45

)

Откуда он взял что надо искать с таким именем?

Цитата(Volkogriz @ 13.1.2009, 00:19

)

LoadFromFile(extractfilepath(Application.ExeName)+'Data\Wall\Nature'+inttostr(nums[r])+'.jpg');

вот откуда smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »