генратор случайных чисел

[nefor-аня]

картинка вставляется с помошью генератора

подскажите кто нибуть как вставить картинку рандомом. мне нужно чтобы из папки выбирались рандомом картинки

[Stilet]

Предположим у тебя в папке 1, которая лежит там же где и программа есть фотки, тогда пример:

unit Unit1;

interface

uses          jpeg,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    FileListBox1: TFileListBox;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     B:TPicture;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;
begin
 s:=FileListBox1.Directory+'\'+FileListBox1.Items[random(FileListBox1.Items.Count-1)];
 b.LoadFromFile(s);
 Canvas.StretchDraw(ClientRect,B.Graphic);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 b:=TPicture.Create;
 FileListBox1.Directory:=ExtractFilePath(paramstr(0))+'\1';
 FileListBox1.Visible:=false;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 b.Free;
end;

end.

Покажет как загрузить случайным образом ту или иную фотку.
Смысл понял?

[RUSt88]

а зачем через файллистбокс? Нужны же картинки, уместнее будет реализовать через массив TBitmap (если картинки бмп) или TJpegImage

создаешь динамический массив картинок, ищешь файлы с нужным расширением при помощи функции FindFirst и FindNext, запоминаешь в массив пути, считаешь сколько файлов получилось - это и будет размерность массива - 1.
Затем грузишь в массив картинки (примерно так):

uses jpeg;
var
tn: array[0..5] of TJPEGImage;
i: integer;
begin
  for i := 0 to 5 do begin
    tn[i] := TJPEGImage.Create;
    tn[i].LoadFromFile(s[i]);
  end;
end;

случайный выбор:

randomize;
tn[random(5)] // картинка выбирается случайным образом из массива

[Stilet]

уместнее будет реализовать через массив

Вот ты сначала попробуй так 200 000 картинок обработать а потом расскажешь как твой компьютер себя чувствовал при такой загрузке )
Загрузка картинок не очень медленный процесс.

[RUSt88]

200 000 картинок - лишканул чего-то
предложу другой путь, картинки не загружаем, а создаем массив из имен файлов картинок, и также по рандому выбираем элемент массива, в к-ром есть всё необходимое для загрузки image

[Stilet]

а создаем массив из имен файлов картинок

Угу. Я для этого FileListBox как раз применил.