增加三种方法手敲
第一种方法
ImagePath:=[]
ImagePath[0]:='D:/images/by000.bmp'
ImagePath[1]:='D:/images/by001.bmp'
ImagePath[2]:='D:/images/by002.bmp'
ImagePath[3]:='D:/images/by003.bmp'
ImagePath[4]:='D:/images/by004.bmp'
ImagePath[5]:='D:/images/by005.bmp'
ImagePath[6]:='D:/images/by006.bmp'
ImagePath[7]:='D:/images/by007.bmp'
for i:=0 to 7 by 1
read_image(Image,ImagePath[i])
endfor
第二种方法
for i:=0 to 7 by 1
read_image(Image,'D:/images/'+i+'.bmp')
endfor
第三种方法
NumImages :=8
for I :=1 to NumImages-1 by 1
read_image (Image, ' D:/images1/a ' + I$'03d')
endfor |