Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Окт

Загрузка изображений из списка ImageList

Posted by micher under Delphi

На форме 15 Image. В корне папки программы файл Image.List с путями к jpeg файлом. На форме кнопка загрузить и далее.
При нажатие на кнопку заполняются 15 Image. При нажатие кнопки далее — загружаются новые рисунки в 15 Image.
Все пути к файлом для загрузки находятся в файле Image.List.

Volkogriz



uses

jpeg, Math,
 procedure Load15Images;
var

  Form1: TForm1;

   Image:TImage;

    FSL: TStringList;

    FCurrentImage: Integer;

implementation
{$R *.dfm}
procedure TForm1.Load15Images;

var

I,Pos:Integer;

begin

  Pos:=Max(0, FCurrentImage);

  for I := Pos to Min(Pos + 15, FSL.Count - 1) do

    TImage(FindComponent('Image' + IntToStr(I - Pos + 1))).Picture.LoadFromFile(FSL[I]);

    Inc(FCurrentImage, 15)

end;
procedure TForm1.Button1Click(Sender: TObject);

begin

Load15Images;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

 FCurrentImage := 0;

  FSL:= TStringList.Create;

  FSL.LoadFromFile('Image.List');

//TImage(FindComponent('Image' + IntToStr(I - Pos + 1))).Picture.LoadFromFile(FSL[I]);

  end;
procedure TForm1.Button2Click(Sender: TObject);

begin

FSL.Free;

 FCurrentImage := 0;

  FSL:= TStringList.Create;

  FSL.LoadFromFile('Image.List');

   Load15Images;

  end;
end.