首页 > 代码库 > bcb6 中安装 delphi7 的控件包

bcb6 中安装 delphi7 的控件包

其实只要新建一个包,然后把 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 中安装 delphi7 的控件包