delphi xe10的2个问题-CSDN论坛

⋅FlexCell导出EXCEL ⋅mef的文件名和shared的问题 ⋅SmtpClient 发送信件，接收附件有时变成bin文件 更多帖子 关注私信空间博客 ilikeff8 本版专家分：945 结帖率 99.42%

1
左右边这条文档宽度边界怎么设置的大一点，ctrl+d自动整理代码是根据这条边界整理的，太窄了

2 如何在代码里检查当前编译的版本是32位还是64位

目前用的是预编译指令，还是太麻烦，要自己手工注释 IsUse64bit 的定义来编译32/64，容易出错



{$IFDEF IsUse64bit}

      result := X64.USBCAN2.VCI_FindUsbDevice(pInfo);

{$ELSE}

      result := X86.USBCAN2.VCI_FindUsbDevice(pInfo);

{$ENDIF}

0 2017-10-27 17:23:42

回复数 6 只看楼主引用举报楼主

ilikeff8 本版专家分：945: 最右边 .

0 2017-10-27 17:24:40

只看TA 引用举报 #1 得分 0

⋅2019年新年快乐万事如意码家接分

⋅XML 空节点保持开始与结束符号完整

⋅Delphi Dll封闭Form 嵌入TabSheet中，失去焦点

更多帖子

关注私信空间博客

lyhoo163

本版专家分：50583

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

红花 2018年11月 Delphi大版内专家分月排行榜第一
2018年5月 Delphi大版内专家分月排行榜第一
2018年2月 Delphi大版内专家分月排行榜第一
2018年1月 Delphi大版内专家分月排行榜第一
2017年12月 Delphi大版内专家分月排行榜第一
2017年8月 Delphi大版内专家分月排行榜第一
2017年7月 Delphi大版内专家分月排行榜第一
2017年5月 Delphi大版内专家分月排行榜第一
2017年3月 Delphi大版内专家分月排行榜第一
2017年2月 Delphi大版内专家分月排行榜第一
2016年12月 Delphi大版内专家分月排行榜第一
2016年11月 Delphi大版内专家分月排行榜第一
2016年10月 Delphi大版内专家分月排行榜第一
2016年9月 Delphi大版内专家分月排行榜第一
2016年8月 Delphi大版内专家分月排行榜第一
2016年7月 Delphi大版内专家分月排行榜第一
2016年6月 Delphi大版内专家分月排行榜第一
2016年5月 Delphi大版内专家分月排行榜第一
2016年4月 Delphi大版内专家分月排行榜第一
2016年3月 Delphi大版内专家分月排行榜第一
2016年2月 Delphi大版内专家分月排行榜第一
2016年1月 Delphi大版内专家分月排行榜第一
2015年12月 Delphi大版内专家分月排行榜第一
2015年11月 Delphi大版内专家分月排行榜第一
2015年10月 Delphi大版内专家分月排行榜第一
2015年9月 Delphi大版内专家分月排行榜第一
2015年8月 Delphi大版内专家分月排行榜第一
2015年7月 Delphi大版内专家分月排行榜第一
2015年6月 Delphi大版内专家分月排行榜第一
2015年5月 Delphi大版内专家分月排行榜第一
2015年4月 Delphi大版内专家分月排行榜第一
2015年3月 Delphi大版内专家分月排行榜第一
2015年2月 Delphi大版内专家分月排行榜第一
2015年1月 Delphi大版内专家分月排行榜第一
2014年12月 Delphi大版内专家分月排行榜第一
2014年11月 Delphi大版内专家分月排行榜第一

黄花 2017年11月 Delphi大版内专家分月排行榜第二
2017年4月 Delphi大版内专家分月排行榜第二
2017年1月 Delphi大版内专家分月排行榜第二
2014年10月 Delphi大版内专家分月排行榜第二
2014年9月 Delphi大版内专家分月排行榜第二



{$IFDEF IsUse64bit}

      result := X64.USBCAN2.VCI_FindUsbDevice(pInfo);

{$ELSE}

      result := X86.USBCAN2.VCI_FindUsbDevice(pInfo);

{$ENDIF}

这是经典的用法。
你还可以，通过变量YES64，首先软件启动时，判断是否64位。代码运行时：



  if Yes64 then result := X64.USBCAN2.VCI_FindUsbDevice(pInfo)

           else result := X86.USBCAN2.VCI_FindUsbDevice(pInfo);

0 2017-10-29 08:31:56

只看TA 引用举报 #2 得分 10

⋅VCL的TBitmap补丁 ⋅坚持到最后一天~~~ ⋅这一局怎么破 更多帖子 关注私信空间博客 早打大打打核战争 本版专家分：22862 红花 2019年2月其他开发语言大版内专家分月排行榜第一 2019年1月 Delphi大版内专家分月排行榜第一 2018年8月 Delphi大版内专家分月排行榜第一 2018年7月 Delphi大版内专家分月排行榜第一 2018年4月 Delphi大版内专家分月排行榜第一 2018年3月 Delphi大版内专家分月排行榜第一 黄花 2016年11月 Delphi大版内专家分月排行榜第二 蓝花 2011年10月其他开发语言大版内专家分月排行榜第三 2010年8月其他开发语言大版内专家分月排行榜第三 2007年5月其他开发语言大版内专家分月排行榜第三: 1. 有内置条件编译符号，不需要自定义：
{$IFDEF CPU64BITS}
// ...
{$ELSE}
{$IFDEF CPU32BITS}
// ...
{$ENDIF}
这个CPU32BITS、CPU64BITS对于x86、ARM架构都适用，如果只针对x86，可以使用CPUX86、CPUX64，只针对ARM，可以使用CPUARM、CPUARM32、CPUARM64。

2. Tools->Options->Editor Options->Display中设置Right Margin

0 2017-10-30 11:33:04

只看TA 引用举报 #3 得分 30

⋅FlexCell导出EXCEL ⋅mef的文件名和shared的问题 ⋅SmtpClient 发送信件，接收附件有时变成bin文件 更多帖子 关注私信空间博客 ilikeff8 本版专家分：945: 引用 3 楼 DelphiGuy 的回复:
1. 有内置条件编译符号，不需要自定义：
{$IFDEF CPU64BITS}
// ...
{$ELSE}
{$IFDEF CPU32BITS}
// ...
{$ENDIF}
这个CPU32BITS、CPU64BITS对于x86、ARM架构都适用，如果只针对x86，可以使用CPUX86、CPUX64，只针对ARM，可以使用CPUARM、CPUARM32、CPUARM64。

2. Tools->Options->Editor Options->Display中设置Right Margin

设置 Right Margin 这根线位置的确移动了，但ctrl+d 自动排版怎么还是根据原来默认的边界进行自动换行了

0 2017-10-30 14:52:37

只看TA 引用举报 #4 得分 0

⋅VCL的TBitmap补丁 ⋅坚持到最后一天~~~ ⋅这一局怎么破 更多帖子 关注私信空间博客 早打大打打核战争 本版专家分：22862 红花 2019年2月其他开发语言大版内专家分月排行榜第一 2019年1月 Delphi大版内专家分月排行榜第一 2018年8月 Delphi大版内专家分月排行榜第一 2018年7月 Delphi大版内专家分月排行榜第一 2018年4月 Delphi大版内专家分月排行榜第一 2018年3月 Delphi大版内专家分月排行榜第一 黄花 2016年11月 Delphi大版内专家分月排行榜第二 蓝花 2011年10月其他开发语言大版内专家分月排行榜第三 2010年8月其他开发语言大版内专家分月排行榜第三 2007年5月其他开发语言大版内专家分月排行榜第三: 那需要设置formatter的右边界：
Tools->Options->Editor Options->Formatter->Delphi->Line breaks里的Right margin

0 2017-10-30 15:01:18

只看TA 引用举报 #5 得分 10

⋅FlexCell导出EXCEL ⋅mef的文件名和shared的问题 ⋅SmtpClient 发送信件，接收附件有时变成bin文件 更多帖子 关注私信空间博客 ilikeff8 本版专家分：945: 引用 5 楼 DelphiGuy 的回复:
那需要设置formatter的右边界：
Tools->Options->Editor Options->Formatter->Delphi->Line breaks里的Right margin

可以了

0 2017-10-30 15:22:07

只看TA 引用举报 #6 得分 0

delphi xe10的2个问题 [问题点数：50分，结帖人ilikeff8]