bcb6 中安装 delphi7 的控件包
2016-08-27 03:57
309 查看
其实只要新建一个包,然后把 d7 中的包包含的 pas 文件也包含进去就行了. 同时它会把对应的 bpi 文件也自动包含.
对于 bcb6 中没有的 PosEx 函数可以这样处理,把 d7 中的实现复制到一个新 pas 文件中,然后用条件编译就行了,另外对于查找 pas 的路径,要设置在 lib 搜索而不是 include 搜索.
uses
{$IFDEF BCB}
StrUtils_d7_bcb6,
{$ENDIF}
unit StrUtils_d7_bcb6;
interface
uses
SysUtils, Types;
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
implementation
{$IFDEF MSWINDOWS}
uses
Windows;
{$ENDIF}
{$IFDEF LINUX}
uses
Libc;
{$ENDIF}
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
if Offset = 1 then
Result := Pos(SubStr, S)
else
begin
I := Offset;
LenSubStr := Length(SubStr);
Len := Length(S) - LenSubStr + 1;
while I <= Len do
begin
if S[I] = SubStr[1] then
begin
X := 1;
while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
Inc(X);
if (X = LenSubStr) then
begin
Result := I;
exit;
end;
end;
Inc(I);
end;
Result := 0;
end;
end;
//--------------------------------------------------
end.
--------------------------------------------------
http://www.ccrun.com/article.asp?i=1033&d=8oh4u2
会出一个超经典的错误:
[Linker Fatal Error] Fatal: Unable to open file 'DB.OBJ'
估计在BCB6下安装DevExpress的朋友很多都遇到这问题了,妖哥也是花了N长的时间才搞定咯,呵呵,解决方法就是:
点击 Package - dclcxTreeListVCLC6.bpk 窗口上的 Requires--》再点击Add按钮--》在 Add Unit 窗口--》点击Browse...--》找到$(BCB)\Lib\Release\dbrtl.bpi 添加进来
这个时候再编译,就呆以成功了,然后安装(Install)你就可以看到盼望已久的cxTreeList了。
http://www.cnblogs.com/-clq/archive/2012/01/01/2309417.html
对于 bcb6 中没有的 PosEx 函数可以这样处理,把 d7 中的实现复制到一个新 pas 文件中,然后用条件编译就行了,另外对于查找 pas 的路径,要设置在 lib 搜索而不是 include 搜索.
uses
{$IFDEF BCB}
StrUtils_d7_bcb6,
{$ENDIF}
unit StrUtils_d7_bcb6;
interface
uses
SysUtils, Types;
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
implementation
{$IFDEF MSWINDOWS}
uses
Windows;
{$ENDIF}
{$IFDEF LINUX}
uses
Libc;
{$ENDIF}
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
if Offset = 1 then
Result := Pos(SubStr, S)
else
begin
I := Offset;
LenSubStr := Length(SubStr);
Len := Length(S) - LenSubStr + 1;
while I <= Len do
begin
if S[I] = SubStr[1] then
begin
X := 1;
while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
Inc(X);
if (X = LenSubStr) then
begin
Result := I;
exit;
end;
end;
Inc(I);
end;
Result := 0;
end;
end;
//--------------------------------------------------
end.
--------------------------------------------------
http://www.ccrun.com/article.asp?i=1033&d=8oh4u2
会出一个超经典的错误:
[Linker Fatal Error] Fatal: Unable to open file 'DB.OBJ'
估计在BCB6下安装DevExpress的朋友很多都遇到这问题了,妖哥也是花了N长的时间才搞定咯,呵呵,解决方法就是:
点击 Package - dclcxTreeListVCLC6.bpk 窗口上的 Requires--》再点击Add按钮--》在 Add Unit 窗口--》点击Browse...--》找到$(BCB)\Lib\Release\dbrtl.bpi 添加进来
这个时候再编译,就呆以成功了,然后安装(Install)你就可以看到盼望已久的cxTreeList了。
http://www.cnblogs.com/-clq/archive/2012/01/01/2309417.html
相关文章推荐
- Delphi下的RTTI函数大全
- delphi 程序是否为控制台编译选项
- 一个用UpdateLayeredWindow实现窗体半透明的delphi的代码
- delphi OnMouseLeave 事件不灵敏及解决之道(使用TrackMouseEvent函数进行加强)
- 一个关于Delphi XML处理单元的BUG
- Delphi 缩放图像代码 - 支持PNG透明通道(利用了Windows的windowscodecs.dll)
- Delphi VCL 在TRichEdit控件中设置WordWrap属性后无法自动换行的问题
- Delphi:与VCL同步(Synchronize()、用消息来同步)
- Delphi中线程类TThread实现多线程编程2---事件、临界区、Synchronize、WaitFor……
- 加密解密 Delphi C# 兼容互转
- [JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PWideChar
- [JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PAnsiChar
- [JNA系列]Java调用Delphi编写的Dll之JNA使用
- [JNA系列]Java调用Delphi编写的Dll之Delphi与JAVA基本数据类型对比
- 欢迎报名参加Delphi教学研习营, 在一个星期内学会Delphi语言基础程序开发
- Delphi,在DelphiXE下使用DirectX的初步摸索
- Delphi中自画TStatusBar面板中的文字颜色背景以及图片
- Delphi从内存流中判断图片格式(好多相关文章)
- Delphi 操作Flash D7~XE10都有 导入Activex控件 shockwave
- Delphi 中 paramstr 的用法及参数意义