UC知道这段Delphi代码看不懂 高手解答下
来源：百度知道 编辑：UC知道 时间：2024/05/26 06:52:27
JPG：TJPEGIMAGE；
BMP：TIMAGE；
begin
bmp：=TIMAGE.create（self）；
jpg：=TJPEGIMAGE.create
if op.filename<>'' then
begin
bmp.picture.loadfromfile(op.filename)
jpg.assign(bmp.picture.bitmap)
主要就这些看不懂,高人解释下谢谢.
BMP：TIMAGE；
begin
bmp：=TIMAGE.create（self）；
jpg：=TJPEGIMAGE.create
if op.filename<>'' then
begin
bmp.picture.loadfromfile(op.filename)
jpg.assign(bmp.picture.bitmap)
主要就这些看不懂,高人解释下谢谢.
JPG：TJPEGIMAGE； //声明JPG变量类型
BMP：TIMAGE； //声明BMP变量类型
begin
bmp：=TIMAGE.create（self）；//创建TIMAGE实例
jpg：=TJPEGIMAGE.create //创建TJPEGIMAGE实例
if op.filename<>'' then //当op的文件名不为空时执行
begin
bmp.picture.loadfromfile(op.filename) //bmp加载op所指向的bmp图片文件
jpg.assign(bmp.picture.bitmap) //jpg加载bmp图片文件