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

[Volkogriz]

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

PHP код:

procedure ImageLod;
var
nums: array [0..112] of Integer;
i,r,j: Integer;
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; 


А вот Ошибка:
http://pic.ipicture.ru/uploads/090113/583VYi5mku.jpg
Откуда такие цыфры?
С уважением,
Volkogriz!

[mihali4]

+'Data\Wall\Nature'+

А кто слэш в конце ставить будет? Кому поручим?

[VVM]

Если не ошибаюсь, в Delphi7 Image не поддерживает формат ".jpg". C ".bmp" должно прокатить =)

[Volkogriz]

{Nature<[Это имя файла]}>{+inttostr(nums[r])+[ищим номер после имени от 0 до 112]}>{.jpg[расширение файла]}!
Вить так?
Или я чтото напутал?
Он грузит через один!
С уважением,
Volkogriz!

[Terran]

У вас ошибка здесь:

Randomize; 
 for i := 1 to 112 do 
   nums[i] := i;

Сделайте так:

Randomize;
 for i := 0 to 112 do
   nums[i] := i;

Нумеруем с нуля раз тут nums: array [0..112] of Integer;

[goblinyara]

VVM умеет она работать, только надо сделать так:

uses
   jpeg;

[VVM]

VVM умеет она работать, только надо сделать так: ...

Да, только листинг у автора ветки не весь виден =)

[Volkogriz]

uses я добавил

Номера он откуда такие то берёт как Nature10813544.jpg
И грузит правельно через один файл!!!

[Terran]

Номера он откуда такие то берёт как Nature10813544.jpg

Посмотрите выше. Я в посте №5 написал как это исправить.

А кто слэш в конце ставить будет? Кому поручим?

Слэш в конце не надо ставить. Это имя картинки + её номер.

[Volkogriz]

Исправил только ситуация таже !