Unterschied zwischen dynamischen und statischen Array ??

[Corpsman]

Über Geil,

Danke, ist immer wieder schön wenn einem Geholfen wird, und das dann auch noch so schnell

übrigens Hier die Lösung :

Delphi-Quellcode:

Function LoadAplhaSourceTexture(Maskname, Filename: String): Gluint;
Var
  a: Array[0..127] Of Array[0..127] Of Array[0..3] Of byte;
  c: Array Of Array[0..3] Of byte;
  i, j: Integer;
  b, b2: Tbitmap;
Begin
  b2 := TBitmap.create;
  b2.LoadFromFile(Filename);
  b := TBitmap.create;
  b.LoadFromFile(Maskname);
  setlength(c, 128 * 128);
  For i := 0 To high(a) Do
    For j := 0 To high(a[0]) Do Begin
      a[j, i, 0] := getrvalue(b2.canvas.pixels[i, 127 - j]);
      a[j, i, 1] := getgvalue(b2.canvas.pixels[i, 127 - j]);
      a[j, i, 2] := getbvalue(b2.canvas.pixels[i, 127 - j]);
      If b.Canvas.pixels[i, 127 - j] = clblack Then Begin
        a[j, i, 3] := 255;
      End
      Else Begin
        a[j, i, 3] := 0;
      End;
      c[j * 128 + i, 0] := a[j, i, 0];
      c[j * 128 + i, 1] := a[j, i, 1];
      c[j * 128 + i, 2] := a[j, i, 2];
      c[j * 128 + i, 3] := a[j, i, 3];
    End;
  glGenTextures(1, @Result);
  glBindTexture(GL_TEXTURE_2D, result);
  glEnable(GL_TEXTURE_2D);
  glTexParameteri(gl_texture_2d, GL_GENERATE_MIPMAP_SGIS, GL_TRUE);
  glTexParameteri(gl_texture_2d, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
  glTexParameteri(gl_texture_2d, GL_TEXTURE_MAG_FILTER, GL_LINEAR_MIPMAP_LINEAR);

  //                                      Höhe                    Format der Quelldaten
  //                                       ||            Breite            ||
  //                                       ||              ||              ||
//  gluBuild2DMipmaps(gl_Texture_2d, GL_RGBA, high(a) + 1, high(a[0]) + 1, GL_RGBA, GL_UNSIGNED_BYTE, @a);
  gluBuild2DMipmaps(gl_Texture_2d, GL_RGBA, 128, 128, GL_RGBA, GL_UNSIGNED_BYTE, @c[0]);
  setlength(c, 0);
  b.free;
  b2.free;
End;