我定义了TRGBLine1这个数组,用来指向每一个象素的r,g,b值
type
TRGB1=record
R1,G1,B1:byte;
end;
TRGBLine1=array[0..65535]of TRGB1;
for k:=0 to ((image2.Width)*(image2.height)-1) do
begin
......
hsvtorgb(h,t,z,r,g,b);//调用自定义函数进行转换
TRGBLine1[k].R1:=r;//这里出错显示"("expected,but"["found.
TRGBLine1[k].G1:=g;//同上
TRGBLine1[k].B1:=b;//同上
end;
l:=0;
for i:=0 to image2.Height-1 do
begin
scanline:=image2.picture.bitmap.Scanline[i];
for j:=0 to image2.Width-1 do
begin
scanline[j].r:=TRGBLine1[l].R1;
scanline[j].G:=TRGBLine1[l].G1;
scanline[j].b:=TRGBLine1[l].B1;
inc(l);
end;
end;
Image2.Refresh;
end;
type
TRGB1=record
R1,G1,B1:byte;
end;
TRGBLine1=array[0..65535]of TRGB1;
for k:=0 to ((image2.Width)*(image2.height)-1) do
begin
......
hsvtorgb(h,t,z,r,g,b);//调用自定义函数进行转换
TRGBLine1[k].R1:=r;//这里出错显示"("expected,but"["found.
TRGBLine1[k].G1:=g;//同上
TRGBLine1[k].B1:=b;//同上
end;
l:=0;
for i:=0 to image2.Height-1 do
begin
scanline:=image2.picture.bitmap.Scanline[i];
for j:=0 to image2.Width-1 do
begin
scanline[j].r:=TRGBLine1[l].R1;
scanline[j].G:=TRGBLine1[l].G1;
scanline[j].b:=TRGBLine1[l].B1;
inc(l);
end;
end;
Image2.Refresh;
end;
var RGBLine1:TRGBLine1
RGBLine1[k].r1:=r不然就
var
TRGBLine1:array[0..65535]of TRGB1