我需要使用控制台应用程序处理一组bmp文件,我正在使用TBitmap类,但代码不会编译,因为这个错误
E2003 Undeclared identifier: 'Create'
此示例应用程序会再现该问题
{$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils,Vcl.Graphics,WinApi.Windows; procedure CreateBitMap; Var Bmp : TBitmap; Flag : DWORD; begin Bmp:=TBitmap.Create; //this line produce the error of compilation try //do something finally Bmp.Free; end; end; begin try CreateBitMap; except on E: Exception do Writeln(E.ClassName,': ',E.Message); end; end.
为什么这段代码不能编译?
解决方法
问题是按照你的uses子句的顺序,WinApi.Windows和Vcl.Graphics单元有一个名为TBitmap的类型,当编译器找到一个不明确的类型时,使用使用列表中存在的最后一个单元来解析类型.在这种情况下,请使用指向
BITMAP WinAPi结构的Windows单元的TBitmap,以将您的单位的顺序解决
uses System.SysUtils,WinApi.Windows,Vcl.Graphics;
或者您可以使用完全限定名称声明类型
procedure CreateBitMap; Var Bmp : Vcl.Graphics.TBitmap; Flag : DWORD; begin Bmp:=Vcl.Graphics.TBitmap.Create; try //do something finally Bmp.Free; end; end;
原文地址:https://www.jb51.cc/delphi/101395.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。