DELPHI AREA Forum

Hi
I come from Germany because the bad English.
My problem is that I PicShow not with the Random wants.

Code: Select all

// Selects randomly an image from the list and loads it in to PicShow
procedure TMainForm.LoadNextImage;
var
  Index: Integer;
begin
  LoadedImage := '';
  if Pictures.Count > 0 then
  begin
    repeat
      Index := Random(Pictures.Count);//What must I change there ???
    until (Pictures.Count <= 1) or (ShowingImage <> Pictures[Index]);
    LoadedImage := Pictures[Index];
    PicShow.Picture.LoadFromFile(PicturesPath + '\' + LoadedImage);
  end;
end;

Thank you
Uwe

I guess you need the following code:

Code: Select all

var
  LoadedIndex: Integer = -1;

procedure TMainForm.LoadNextImage;
begin
  if Pictures.Count > 0 then
  begin
    Inc(LoadedIndex);
    if LoadedIndex >= Pictures.Count then
      LoadedIndex := 0;
    LoadedImage := Pictures[LoadedIndex];
    PicShow.Picture.LoadFromFile(PicturesPath + '\' + LoadedImage);
  end;
end;

Hi Kambiz

First, many thanks to a lot of work and greetings from Germany.

Thank you
Uwe

You're welcome!