Адаптация RxLib для Delphi5

Оформил: DeeCo
Автор: Дмитрий Полщанов

Лена Филиппова

Введение

Общие замечания.

Модули пакетов rxctl4, rxdb4, dclrx4, dclrxdb4

Например, было

requires
  VclDb40,
  VclMid40,
  rxctl4,
  Vclbde40;

requires
  VclDb50,
  VclMid50,
  rxctl5,
  Vclbde50;

Модуль Rx.inc.

{$IFDEF VER130} {Borland Delphi 5.0 }
{$DEFINE RX_D3}
{$DEFINE RX_D4}
{$DEFINE RX_D5}
{$ENDIF}

procedure Tform1.FormCreate(Sender: Tobject);
var
{$IFDEF VER130}
  a: Integer;
{$ENDIF}
begin
  a := 0;
end;

VER80 - Delphi1
VER90 - Delphi2
VER100 - Delphi3
VER110 - C + +Builder 3
VER120 - Delphi4

{$IFNDEF VER80} { Delphi 1.0     }
{$IFNDEF VER90} { Delphi 2.0     }
{$IFNDEF VER93} { C++Builder 1.0 }
{$DEFINE RX_D3} { Delphi 3.0 or higher }
{$IFNDEF VER100}
{$DEFINE RX_V110} { C++Builder 3.0 or higher }
{$IFNDEF VER110}
{$DEFINE RX_D4} { Delphi 4.0 or higher}
// Добавлено
{$IFNDEF VER120}
{$DEFINE RX_D5} { Delphi 5.0 or higher}
{$ENDIF}
// конец добавления
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}

RxConst.pas

{$IFDEF VER130}
const
  SDelphiKey = 'Software\Borland\Delphi\5.0';
{$ENDIF}

{$IFDEF RX_D5}
FCompList: TDesignerSelectionList;
{$ELSE}
FCompList: TComponentList;
{$ENDIF}

{$IFDEF RX_D5}
FCompList := TDesignerSelectionList.Create;
{$ELSE}
FCompList := TComponentList.Create;
{$ENDIF}

Модуль BDEUtils.pas

function LoginToDatabase(Database: TDatabase; OnLogin:
{$IFDEF RX_D5}
  TDatabaseLoginEvent
{$ELSE}
  TLoginEvent
{$ENDIF}): Boolean;

{$IFDEF RX_D5}
else
  raise EDBEngineError.Create(SLocalDatabase);
{$ELSE}
else
  DBError(SLocalDatabase);
{$ENDIF}

Модуль DBFilter.pas

function TRxDBFilter.CreateExprFilter: hDBIFilter;
begin
  Result := nil;
  if (FFilter.Count > 0) then
    if BuildTree then
    try
      Check(DbiAddFilter((FDatalink.DataSet as TBDEDataSet).Handle,
        Longint(Self), FPriority, False,
{$IFDEF RX_D5}pCANExpr({$ENDIF}
        TExprParser(FParser).FilterData
{$IFDEF RX_D5}){$ENDIF},
        nil, Result));
      FDataHandle := TBDEDataSet(FDatalink.DataSet).Handle;
    finally
      DestroyTree;
    end;
end;

FParser := TExprParser.Create(FDataLink.DataSet, Expr,
  TFilterOptions(FOptions){$IFDEF RX_D4}, [], '', nil{$ENDIF}
{$IFDEF RX_D5}, FldTypeMap{$ENDIF});

Архивируем и перекомпилируем библиотеку. Исправляем уже известные ошибки

Модуль LoginDlg.pas

{$IFDEF RX_D5}
SaveLogin: TDatabaseLoginEvent;
{$ELSE}
SaveLogin: TLoginEvent;
{$ENDIF}

Модуль RxRichEd.pas.

{$IFDEF RX_D5}
type
  TCharFormat2 = TCharFormat2A;
{$ENDIF}

сразу после строки type
TRichEditVersion = 1..3 или uses.

Модуль RxMemDS.pas.

function BCDToCurr(BCD: Pointer; var Curr: Currency): Boolean;
{$IFNDEF RX_D5} override;
{$ENDIF}
  function CurrToBCD(const Curr: Currency; BCD: Pointer;
    Precision, Decimals: Integer): Boolean;
  {$IFNDEF RX_D5} override;
  {$ENDIF}

Архивируем и перекомпилируем библиотеку. И наталкиваемся на следующую ошибку.

Модуль SelDSFrm.pas

{$IFDEF RX_D5}
Designer.Edit(GetIComponent);
{$ELSE}
ShowDatasetDesigner(Designer, TDataSet(Component));
{$ENDIF}

uses{$IFDEF WIN32}Windows, {$ELSE}WinProcs, WinTypes, {$ENDIF}SysUtils,
  Messages, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls,
  DsgnIntf, RxDsgn{$IFDEF RX_D5}, DsnDbCst{$ENDIF};

Заключение

• 1. Контекстный поиск строки в файлах *.pas, *.inc, *.dcu, *.bpl, *.*. Этот поиск нужно использовать с «головой». То есть, на этом можно потерять достаточно много времени, если задать слишком широкую область поиска или слишком общую маску.
• 2. Магическую комбинацию ctrl+shift+пробел. Очень ценное введение, появившееся еще в Delphi4. Мы используем его всегда и во всех разработках.
• 3. Принцип разумной достаточности. Не нужно чего-то придумывать, если простое приведение типа является достаточным. Если мы не знаем на что что-то заменить, но знаем что это что-то должно делать, ищем что-нибудь другое, что делает то-же самое.
• 4. Принцип аналогии. Если что-то делается, это должно делаться однообразно. Кстати, хороший стиль программирования основывается на однообразии методов, описаний, способа кодирования и т.д. Человек, который сначала пишет CloseWindowEx, потом closewindowex, а потом CloseWindowSex, при этом постоянно меняя ширину отступов и т.п - не имеет хорошего стиля программирования, потому что не имеет стиля вообще. Но это - тема отдельной статьи…
• 5. Пошаговая компиляция с архивированием исходных модулей.

Благодарности