[effe]

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

[~TB~]

А что конкретно не понятно? Как загружать или как делать это случайно?

Генерируй список файлов в папке, генерируй случайное число в пределах от 0 до кол-во элементов в списке - 1. Загружай через LoadFromFile.

[effe]

Сообщение от ~TB~

А что конкретно не понятно? Как загружать или как делать это случайно?

Генерируй список файлов в папке, генерируй случайное число в пределах от 0 до кол-во элементов в списке - 1. Загружай через LoadFromFile.

мне нада что б при запуске он случайным образом одну из 50картинок открыл

[~TB~]

Это понятно, но я про другое, что тебе конкретно в реализации не понятно?
Что ты конкретно затрудняешь реализовать, так сказать?

IDE под рукой нет, поэтому набросал так, могут быть ошибки, но суть вроде правильная:

Код:

var
  SearchRec: TSearchRec;
  SearchResults: Integer;
  ImagesList: TStringList;
  MySuperRnd := Integer;
begin
  ImagesList := TStringList.Create;
  try
    Path := 'R:\MySuperDir\MySuperSubDir\';
    SearchResults := FindFirst(Path + '*.bmp', faAnyFile, SearchRec);
    while SearchResults = 0 do
    begin
      if SearchRec.Attr <> faDirectory then ImagesList.Add(Path + SearchRec.Name);
      SearchResults := FindNext(SearchRec);
    end;
    FindClose(SearchRec);
    if ImagesList.Count > 0 then
    begin
      Randomize;
      MySuperRnd := Random(ImagesList.Count);
      Image1.Picture.LoadFromFile(ImagesList[MySuperRnd]);
    end;
  finally
    FreeAndNil(ImagesList);
  end;
end;

[effe]

то ли я рукажоп то ли у меня изображения не запускаются
может скинешь готовую?
Путь к папке с картинками укажу сам

[Pyro]

называешь файлы 0.bmp — 49.bmp

Код:

inttostr(random(50))+'.bmp' //– имя файла

[effe]

мб готовый пример скинеш?
я уже часов делаю нихрена не получается

[effe]

Сообщение от ~TB~

Это понятно, но я про другое, что тебе конкретно в реализации не понятно?
Что ты конкретно затрудняешь реализовать, так сказать?

IDE под рукой нет, поэтому набросал так, могут быть ошибки, но суть вроде правильная:

Код:

var
  SearchRec: TSearchRec;
  SearchResults: Integer;
  ImagesList: TStringList;
  MySuperRnd := Integer;
begin
  ImagesList := TStringList.Create;
  try
    Path := 'R:\MySuperDir\MySuperSubDir\';
    SearchResults := FindFirst(Path + '*.bmp', faAnyFile, SearchRec);
    while SearchResults = 0 do
    begin
      if SearchRec.Attr <> faDirectory then ImagesList.Add(Path + SearchRec.Name);
      SearchResults := FindNext(SearchRec);
    end;
    FindClose(SearchRec);
    if ImagesList.Count > 0 then
    begin
      Randomize;
      MySuperRnd := Random(ImagesList.Count);
      Image1.Picture.LoadFromFile(ImagesList[MySuperRnd]);
    end;
  finally
    FreeAndNil(ImagesList);
  end;
end;

то ли я рукажоп или я не догоняю что ты взял за "MySuperRnd"

[angvelem]

А посмотреть:

MySuperRnd := Integer;

[effe]

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

[PhoeniX]

Читаем любую книжку по Делфи. Список литературы есть в разделе "Начинающим", прикреплённая тема. За готовым - в раздел "работа".

[~TB~]

effe,
Ну ты даешь. Там же опечатка. Найди любую книжку по Delphi и легко разберешся с этой проблемкой.