错误提示:第6行,declaration expected but identifier 'JPEG' found,要怎么改
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,F...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, StdCtrls, ExtCtrls;
JPEG;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
cmbcolor: TComboBox;
cmbmode: TComboBox;
cmbbig: TComboBox;
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenPictureDialog1: TOpenPictureDialog;
OpenPictureDialog2: TOpenPictureDialog;
OpenPictureDialog3: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
procedure FormCreate(Sender: TObject);
procedure cmbcolorClick(Sender: TObject);
procedure cmbmodeClick(Sender: TObject);
procedure cmbbigClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; 展开
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, StdCtrls, ExtCtrls;
JPEG;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
cmbcolor: TComboBox;
cmbmode: TComboBox;
cmbbig: TComboBox;
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenPictureDialog1: TOpenPictureDialog;
OpenPictureDialog2: TOpenPictureDialog;
OpenPictureDialog3: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
procedure FormCreate(Sender: TObject);
procedure cmbcolorClick(Sender: TObject);
procedure cmbmodeClick(Sender: TObject);
procedure cmbbigClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询