Загрузка изображения

[Volkogriz]

Доброе время суток!
Помогите пожалуйста.
На форме 15 Image в корне папки программы файл Image.List с путями к джипег файлом на форме кнопка загрузить и далее
При нажатие на кнопку заполняются 15 Image при нажатие кнопки далие загружаются новые рисунки в 15 Image
все пути к файлом для загрузки находятся в файле Image.List
Зарание благодарен!
С уважением,
Volkogriz!

[Delphi_ProGer]

1. Загрузите в TStringList файл Image.List
2. Пройдитесь цыклом по компонентах, проверяйте, не TImage ли это
3. Если да, загружаем картинку в имейдж из соотвественого рядка в TStringList, тоесть путь картинки.

[Volkogriz]

Не выходит почему то.
Можно примерчик?

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  FCurrentImage := 0;
  FSL:= TStringList.Create;
  FSL.LoadFromFile('\Image.List');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FSL.Free;
end;

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;

Что не так подскажите.

[Delphi_ProGer]

А что именно не получаеться? Ошибка? Не компилиться? Изображение не загружаеться?

[Volkogriz]

Не компилиться!
Ошибка:
[Error] Unit1.pas(55): Undeclared identifier: 'Max'

Pos:=Max(0, FCurrentImage);

ню и здесь естественно:

Min(Pos + 15, FSL.Count - 1) do

вроде должно быть вё ок(

[Delphi_ProGer]

Попробуйте:

if Fsl.Count>0 then
for i:=0 to Fsl.count-1 do
TImage(FindComponent('Image' + IntToStr(I))).Picture.LoadFromFile(FSL[I]);

[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.

Может кому то понадобится !)

[Volkogriz]

возможно ли вот это заставить работать?

procedure TForm1.LoadImages;
var
I,Pos:Integer;
JPG: TJPEGImage;
Imag: THandle;
begin
Imag:= LoadLibrary(PChar(extractfilepath(Application.ExeName)+ 'SystemFacility.dll'));
TListStream:=TResourceStream.Create(Imag,'ListIm','LoadIm');
FSL:= TStringList.Create;
FSL.LoadFromStream(TListStream);
begin
   JPG := TJPEGImage.Create;
  Pos:=Max(0, FCurrentImage);
  for I := Pos to Min(Pos + 14, FSL.Count - 1) do
imageStream:=TResourceStream.Create(Imag,FSL[I],RT_RCDATA);
JPG.LoadFromStream(imageStream);
  TImage(FindComponent('Image' + IntToStr(I - Pos + 1))).Picture.Assign(JPG);
  Inc(FCurrentImage, 14)
  end;
end;

если нет, то как это осуществить?
всю ночь копался не чего не придумал((
За ранее благодарен!
С уважением,
Volkogriz!