[kapullok_2006]

Código Delphi [-]
var
  Form1: TForm1;
  lista_archivos: TStringList;
  i: integer;
  cantidades: TStringList;
  offset: integer =0;
implementation
{$R *.dfm}
uses Unit2;
const foto_en_blanco = 'C:\foto_en_blanco.bmp';
const
  DBT_DEVICEARRIVAL = $8000;
 
procedure RellenarFotos(f: integer); forward;
procedure RellenarFotos(f: integer);
begin
     //si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1
       if fthen
       begin
          Form1.Image1.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f]);
       end
       else
       begin
         Form1.Image1.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+1then
       begin
          Form1.Image2.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+1]);
       end
       else
       begin
          Form1.Image2.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+2then
       begin
         Form1.Image3.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+2]);
       end
       else
       begin
         Form1.Image3.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+3then
       begin
         Form1.Image4.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+3]);
       end
       else
       begin
         Form1.Image4.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+4then
       begin
         Form1.Image5.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+4]);
       end
       else
       begin
         Form1.Image5.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+5then
       begin
          Form1.Image6.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+5]);
       end
       else
       begin
         Form1.Image6.Picture.LoadFromFile(foto_en_blanco);
       end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  cantidades:= TStringList.Create; //crea el StringList 'cantidades'
 lista_archivos:=TStringList.Create;
 //añadido 11 Sept
 lista_aux:=TStringList.Create;
end;