
26.01.2009, 21:38
|
Модератор
|
|
Регистрация: 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.
// Дальше можешь делать с ними что хочешь.
Это?
|