Access violation

← →
VasRog (2004-11-27 02:34) [0]

На этапе прогона программы выдает access violation. Вот небольшой кусок:

type
pRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = Array [0..pixelcountmax-1] of TRGBTriple;
pixelightness = array of array of real;

var
i:integer;
j:integer;
Row24:pRGBTripleArray;
Bitmap24:Tiebitmap;
lightness:pixelightness;
R,G,B: integer;

...................................

if (imageenview1.IEBitmap.PixelFormat = ie24RGB ) then
begin
Bitmap24:=Tiebitmap.Create;
bitmap24.PixelFormat:=ie24rgb;
bitmap24.Width:=imageenview1.Width;
bitmap24.height:= imageenview1.height;
setlength(lightness,bitmap24.Width,bitmap24.Height);

for j:=0 to (bitmap24.Height-1) do
begin
Row24:=bitmap24.ScanLine[j];
for i:=0 to (bitmap24.Width-1) do
begin

R:= Row24[i].rgbtRed;
G:= Row24[i].rgbtGreen;
B:= row24[i].rgbtBlue;

lightness[j,i]:= (R+G+B)/3;
end; // for i

Цепляется имеено к выделенной строчке. Подскажите, пожалуйста, что не так?

← →
XProger © (2004-11-28 04:30) [1]

setlength(lightness,bitmap24.Width,bitmap24.Height);
....
for j:=0 to (bitmap24.Height-1) do
...
for i:=0 to (bitmap24.Width-1) do
...
lightness[j,i]:= (R+G+B)/3;

У тебя j бежит по ширине, а i по высоте? ;)))

← →
VasRog (2004-11-29 22:59) [2]

Большое спасибо. :)))
Я идиот. :))))

Access violation Найти похожие ветки