一个最简单的 uses问题,请教

sxbug 2013-05-17 04:37:38
我有一个单元:uDAUniDACDriver.pas
中间的一段定义:
{$IFDEF MSWINDOWS}
{$I ..\DataAbstract.inc}
{$ELSE}
{$I ../DataAbstract.inc}
{$ENDIF}


{.$DEFINE UNIDAC_NATIVE_ONLY}
interface

uses DB, Classes, uDAEngine, uROClasses,
uROBinaryHelpers, uDAUtils,
DBAccess, Uni, DASQLMonitor, UniSQLMonitor, MemUtils,
{$IF UniDacVersion > '4.1'}CRTypes,{$IFEND}//这里引用了crtypes单元
uDAInterfaces,
uDAADOInterfaces,
uDAIBInterfaces,
。。。。。

procedure OnSDACTrace(Sender: TObject; Text: _string; Flag: TDATraceFlag);//这里的_string是定义在 crtypes里面了

我在编译 uDAUniDACDriver.pas时,总提示 _string没有定义。
但是出现了很奇怪的现象,我把所有 crtypes.pas 和 crtypes.dcu都删除了,也没有提示 crtypes单元找不到。总提示 _string没有定义。

在crtypes中明明定义了,却总提示。

高手指教一下
...全文
175 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ysai 2013-05-24
  • 打赏
  • 举报
回复
UniDacVersion 这个定义在哪?值是多少
火龙岛主 2013-05-24
  • 打赏
  • 举报
回复
把_string所在单元的路径添加到Library Path中。
sxbug 2013-05-18
  • 打赏
  • 举报
回复
就是安装 remobjects 和 unidac driver时,出现的问题 一点建议都没有? 高手们
sxbug 2013-05-17
  • 打赏
  • 举报
回复
crtypes中的定义 {$IFDEF CRUNICODE} _string = WideString; _char = WideChar; _PChar = PWideChar; _TStrings = TWideStrings; _TStringList = TWideStringList; {$IFDEF CLR} _StringBuilder = WideStringBuilder; {$ENDIF} {$ELSE} _string = string; _char = char; _PChar = PChar; _TStrings = TStrings; _TStringList = TStringList; {$IFDEF CLR} _StringBuilder = StringBuilder; {$ENDIF} {$ENDIF}

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧