Показать сообщение отдельно
  #4  
Старый 26.01.2009, 21:38
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Код:
uses jpeg;

var
  List : TObjectList;
  FileNames : Array Of String; // имена картинок jpg, исп полное имя файла.

var
  I : Integer;
  JPG : TJEPGImage;
begin
  List := TObjectList.Create(True);
  For I := Low(FileNames) To High(FileNames) Do
    Begin
      JPG := TJPEGImage.Create;
      JPG.LoadFromFile(FileNames[i]);
      List.Add(JPG);
   End;

// типа создали список с объектами-картинками в формате jpeg. 
// Дальше можешь делать с ними что хочешь.

Это?
Ответить с цитированием