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:
    TImageimg[5][5];
    for(
    int i 05; ++i)
    {
        for(
    int j 05; ++j)
        {
            
    img[i][j] = new TImage(NULL);
            
    img[i][j]->Picture->LoadFromFile(IntToStr(i) + IntToStr(j) + ".bmp");
            
    img[i][j]->Left i*35;
            
    img[i][j]->Top j*35;
            
    img[i][j]->Parent Form1;
        }
    }
    Соответственно на делфи что-то вроде этого:
    PHP:
    var
        
    img : array [0..40..4of TImage;
        
    iinteger;
    begin
        
    for := 0 to 4 do
        
    begin
            
    for := 0 to 4 do
            
    begin
                img
    [ij] := TImage.Create(nil);
                
    img[ij].Picture.LoadFromFile(IntToStr(i) + IntToStr(j) + '.bmp');
                
    img[ij].Left := i*35;
                
    img[ij].Top := j*35;
                
    img[ij].Parent := Form1;
            
    end;
        
    end;
    end;