Timer

[povelitel]

Люди подскажите как мне сделать чтобы таймер выполнялся несколько раз и чтобы картинки у меня перелистывались с одной на другую как в слайд-шоу на javascript вот код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  nass:array[0..4] of string;
  i:integer;

implementation

{$R *.dfm}
procedure myProc1;
begin
  nass[0]:='1.jpg';
  nass[1]:='2.jpg';
  nass[2]:='3.jpg';
  nass[3]:='4.jpg';
  nass[4]:='5.jpg';
  for i:=0 to 4 do
  begin
  Form1.Image1.Picture.LoadFromFile(nass[i]);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    myProc1;
end;

end.

[newerow1989]

procedure myProc1;
var s:string;
begin
   i:=(i+1) mod 5;
   Case i of
   0: s:='1.jpg';
   1: s:='2.jpg';
   2: s:='3.jpg';
   3: s:='4.jpg';
   4: s:='5.jpg';
   Form1.Image1.Picture.LoadFromFile(s);
end;

Как-то так!

[Stilet]

procedure myProc1;
var s:string;
begin
   i:=(i+1) mod 5;
   Case i of
   0: s:='1.jpg';
   1: s:='2.jpg';
   2: s:='3.jpg';
   3: s:='4.jpg';
   4: s:='5.jpg';
   end;
   Form1.Image1.Picture.LoadFromFile(s);
end;

Но думаю лучше так:

procedure myProc1;
const a:array[0..4] of string=('первы','второй','третий','четвертый','пятый');
var s:string;
begin
   s:=a[i mod Length(a)]+'.jpg';
   if FileExists(s) then
    Form1.Image1.Picture.LoadFromFile(s);
   inc(i);
end;

[саша40]

Для лучшей оптимизации следует загрузить эти картинки перед показом в потоки, а потом уже загружать в картинку из памяти. Так получаешь максимум быстродействия при потребление RAM в несколько десятков мегабайт(В современном мире уже нет сильной нужды беречь потребление памяти, нужно её правильно использовать!).

[Stilet]

Не согласен. Даже во времена ДОС применялось более лучшее решение - подгрузка по мере необходимости. Загружалась текущая и следующая за ней картинка (или пара картинок). По мере продвижения по страницам подгружались в очередь следующие картинки. Нет никакой необходимости сразу загружать все.

[Yuran]

Таймер несколько раз примерно так:

объявляешь глобальную переменную

var
TimeCount: integer

перед запуском таймера

TimeCount:=0

В обработчике таймера

if TimeCount=10 then timer1.active:=false;
inc(TimeCount)

Как-то так. Что быстро в голову пришло!

[Вадим Мошев]

Лучше использовать её не как глобальную переменную, а как свойство используемого объекта.