Delphi 7 - Создать Imgae программно в виде матрицы

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by lamer811, 9 Jun 2010.

  1. lamer811

    lamer811 Elder - Старейшина

    Joined:
    8 Nov 2009
    Messages:
    132
    Likes Received:
    39
    Reputations:
    12
    Всем привет, ребят помогите пожалуйста разобраться в Delphi 7 с автоматическим созданием Image, желательно кодом

    У меня имеется массив ссылок на картинки в интернете, в формате JPEG.

    Мне нужно вывести их вот в таком виде:

    n - строки
    m - столбцы, их 4

    [​IMG]


    Мои попытки:
    1) функция загрузки
    2) Создание Image
     
    1 person likes this.
  2. M_script

    M_script Members of Antichat

    Joined:
    4 Nov 2004
    Messages:
    2,582
    Likes Received:
    1,310
    Reputations:
    1,557
    Допустим у нас есть 25 файлов размером 30х30px с именами 00.bmp, 01.bmp, ..., 54.bmp, 55.bmp
    В билдере вывести их на форму в виде матрицы можно так:
    PHP:
    TImage* img[5][5];
    for(
    int i = 0; i < 5; ++i)
    {
        for(
    int j = 0; j < 5; ++j)
        {
            
    img[i][j] = new TImage(NULL);
            
    img[i][j]->Picture->LoadFromFile(IntToStr(i) + IntToStr(j) + ".bmp");
            
    img[i][j]->Left = 5 + i*35;
            
    img[i][j]->Top = 5 + j*35;
            
    img[i][j]->Parent = Form1;
        }
    }
    Соответственно на делфи что-то вроде этого:
    PHP:
    var
        
    img : array [0..4, 0..4] of TImage;
        
    i, j : integer;
    begin
        
    for i := 0 to 4 do
        
    begin
            
    for j := 0 to 4 do
            
    begin
                img
    [i, j] := TImage.Create(nil);
                
    img[i, j].Picture.LoadFromFile(IntToStr(i) + IntToStr(j) + '.bmp');
                
    img[i, j].Left := 5 + i*35;
                
    img[i, j].Top := 5 + j*35;
                
    img[i, j].Parent := Form1;
            
    end;
        
    end;
    end;