具体怎么用呢?我象底下那样传了数组参数,出错显示“array type required”procedure procedure TForm1.Button2Click(hsvdata:byte); var a,d,c,t,z:byte; k,i,j:integer; bmp:Tbitmap; h:Thue; m,n,m1,n1:double; scanline:PRGBline; r,g,b:byte; begin for k:=0 to (imgsize div 3)-1 do begin a:=(hsvdata[k]) div 32;//这里出错 d:=(hsvdata[k] mod 32)div 4;// c:= (hsvdata[k] mod 128) ;// .......
TForm1.Button2Click过程的参数是不能变的。
TForm1.Button2Click过程的参数是不能变的。 你应另外自定义一个函数procedure procedurename(hsvdata:array[1..100]of byte)数组长度不定的话可用变长数组hsvdata:array of byte;yongyo用的时候再用setlength(hsvdata,100)来设定长度
用Variant就可以。Delphi的Source中很多地方用到的。(COM相关)
var
a,d,c,t,z:byte;
k,i,j:integer;
bmp:Tbitmap;
h:Thue;
m,n,m1,n1:double;
scanline:PRGBline;
r,g,b:byte;
begin
for k:=0 to (imgsize div 3)-1 do
begin
a:=(hsvdata[k]) div 32;//这里出错
d:=(hsvdata[k] mod 32)div 4;//
c:= (hsvdata[k] mod 128) ;//
.......
TForm1.Button2Click过程的参数是不能变的。
你应另外自定义一个函数procedure procedurename(hsvdata:array[1..100]of byte)数组长度不定的话可用变长数组hsvdata:array of byte;yongyo用的时候再用setlength(hsvdata,100)来设定长度