Много Image на форме... Рандом картинки из дб Access

[Lexovt]

Есть на форме порядком 10 Timage... Есть Бд... вней таблица..в одном из полей таблицы содержится поле "фото" - текстовое... содержащее ссылку к фото... Каличество картинок не ограничено... всегда разное... имена разные... Проблема: Нужно что бы при запуске программы на форме в тех 10 image отображались рандомно картинки из БД...

[Serge_Bliznykov]

и в чём, собственно проблема?
Одну картинку отобразить можете?
В чём проблема отобразить с помощью random() десять картинок?

[Lexovt]

Проблема в моих незнаниях..Значит...про одну картинку.... как то так

Img1.Picture.Bitmap.LoadFromFile(ExtractFilePath(paramstr(0))+'Obl\'+DataModule2.tbl1.FieldByName('Фото').asString);

не знаю как в разные Image разные картинкки рандомом...
при этом кол-во картинок может быть разное каждый раз

[Serge_Bliznykov]

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

p.s. строчку кода, которую Вы привели - это очень хорошо. Уже стало понятно, где у Вас лежат картинки и откуда конкретно брать название фото.
Но если бы выложили на форум архив с исходниками проекта и примером БД (можно упрощённый текстовый проект + тестовую БД создать) - это ускорило бы помощь Вам в виде КОНКРЕТНОГО примера кода именно для вашего проекта.

[Lexovt]

Повторы не допускаются. Кол - во картинок...в зависимости от добавления строк в БД.. То есть... Вообщем...проекта нету как токавого нет.. я вот просто на этом остановился только начал делать... и встрял на этом вопросе.... Делается всё для себя...смысл такой.

Есть форма главное окно... На нём допустим 10 Image в них при запуске должны отображаться не большие картинки в виде обложек от фильмов... Каждый раз при запуске разные... В Бд такая примерно инфа... Название|Год|О фильме| Актёры|Фото(маленькое)|Фото большое.... (большое для более подробного описания фильма...

Вся инфа заполняется путём добавления в бд нового фильма... Посредством отдельного окна...

Если есть другие идеи и варинты готов выслушать... В программировании знаю мало... делаю в основном мелочи для себя.

В дальнейшем... эти Imagi будут отображать так же отсортированные картинки БД...тое сть по году, по жанру... и тд.

Ну и нужно ещё сделать эти Image ссылками на открытие конкретной записи в БД..то есть инфе подробной о фильме... соответсвующей картинке в IMage.... Вот.... конечно всё это тяжеловато... не всё сразу)

БД Access используется... пока что с одной таблицей

[Аватар]

var a: array[1..10] of String; //в массиве полные пути на 10 картинок
    b: array[1..10] of TImage; //в массиве 10 Image

Randomize;  //сделать один раз например в OnCreate формы

for i:=1 to 10 do begin
  k:=Random(11-i)+1;
  b[i].LoadFromFile(a[k]);
  for j:=k to 10-i do a[j]:=a[j+1];
end;

Тут идея, не исключаю, что в чем-то переврал, прямо на форуме набирал

[Lexovt]

Сообщение от Аватар

var a: array[1..10] of String; //в массиве полные пути на 10 картинок
    b: array[1..10] of TImage; //в массиве 10 Image

Randomize;  //сделать один раз например в OnCreate формы

for i:=1 to 10 do begin
  k:=Random(11-i)+1;
  b[i].LoadFromFile(a[k]);
  for j:=k to 10-i do a[j]:=a[j+1];
end;

Тут идея, не исключаю, что в чем-то переврал, прямо на форуме набирал

Картинок больше чем 10 и каждый раз это должны быть разные картинки..разные от предыдущих 10 после второго запуска проги

[Аватар]

Дык и делай больше 10 массивы и заполняй их каждый раз по разному используя тот же принцип

[Stilet]

Lexovt

with Table1 do begin
 randomize;
 for i:=1 to 10 do begin
  img:=TImage(FindComponent('Image'+IntToStr(i)));
  if img<>nil then begin
   first; moveby(random(RecordCount));
   img.LoadFromFile(FieldByName(Поле с именем файла картинки).AsString;)
  end;
 end;
end;

Где Table1 - подключеная к Акцессу ADOTable. На форме есть 10 Имеджей Image1..Image10;

Идея ясна?

[Lexovt]

Буду счас пробовать...