#ifndef SUPPORT_NETVALUE
unsigned m_lOutside : 28;
unsigned m_nVersion : 4;
#endif
unsigned m_lOutside : 28;
unsigned m_nVersion : 4;
#endif
解决方案 »
- 为什么自动保存多个Excel后,打开其中一个,会同时把其他几个一起打开呢?很奇怪!还有怎么样在memo中显示不同字体颜色
- 网络编程之WriteBuffer和WriteStream那种方法好?
- 一条oracle的select语句的用法,请进!
- 紧急问题???????????????????
- 一个经典的问题讨论!数据库设计到底要不要冗余!
- 这种XP风格的界面在Delphi中怎么实现阿?
- 关于BDE的安装
- 灌水乐园真是趣文不断,大家快看看!
- 我的程序在800*600下显示正常 1024*768 很难看 请问如何解决
- 如何在DELPHI中调用API
- 问一个添加数据的问题
- DELPHI下内嵌汇编int22这个中段指令要用什么代替了,操作系统是2K
const
m_lOutside=28;
m_nVersion=4;
{$ENDIF}
我用Delphi 7都可以编译过的.{$IFNDEF SUPPORT_NETVALUE}
const
m_lOutside=28;
m_nVersion=4;
{$ENDIF}
m_lOutside :Word;
m_nVersion :Word;
{$ENDIF}
这样就可以通过;
$IFNDEF SUPPORT_NETVALUE}
const
m_lOutside=28;
m_nVersion=4;
{$ENDIF}
这样就通不过
以下單元通過:unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
{$IFNDEF SUPPORT_NETVALUE}
const
m_lOutside=28;
m_nVersion=4;
{$ENDIF}
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFNDEF SUPPORT_NETVALUE}
ShowMessage(IntToStr(m_lOutside));
{$ENDIF}
end;end.
-------------------------------------------------------------------------
如果我的說法對你有幫助,請您也幫我一個忙:
詳情請見:
http://community.csdn.net/Expert/topic/4598/4598070.xml?temp=.1748011