Архитектура и модернизация Delphi-системы

// Проследите фактическое поведение OrderForm.
unit OrderForm;
interface
uses Vcl.Forms, FireDAC.Comp.Client;
type
  TOrderForm = class(TForm)
    Query: TFDQuery;
    procedure SaveClick(Sender: TObject);
  end;
implementation
procedure TOrderForm.SaveClick(Sender: TObject);
begin
  Query.Edit;
  Query.FieldByName('status').AsString := 'paid';
  Query.Post;
end;
end.

// Отделите правило языка от удачного запуска Масштабирование решения.
package BillingModules;
requires rtl, vcl, FireDAC;
contains
  Billing.Domain in 'Billing.Domain.pas',
  Billing.Application in 'Billing.Application.pas',
  Billing.Infrastructure in 'Billing.Infrastructure.pas';
end.

// Проследите фактическое поведение AppScope.
unit AppScope;
interface
type
  TApplicationScope = class
    Database: TObject;
    Cache: TObject;
    destructor Destroy; override;
  end;
implementation
destructor TApplicationScope.Destroy;
begin
  Cache.Free;
  Database.Free;
  inherited;
end;
end.

// Один пользовательский сценарий переводится на новый контракт через адаптер к старой функции.
unit LegacyAdapter;
interface
type
  ICustomerRepository = interface
    function FindName(Id: Integer): string;
  end;
  TLegacyCustomerAdapter = class(TInterfacedObject, ICustomerRepository)
    function FindName(Id: Integer): string;
  end;
implementation
function LegacyFindCustomerName(Id: Integer): string;
begin
  Result := 'legacy-' + Id.ToString;
end;
function TLegacyCustomerAdapter.FindName(Id: Integer): string;
begin
  Result := LegacyFindCustomerName(Id);
end;
end.

// Проследите фактическое поведение PricingDomain.
unit PricingDomain;
interface
type
  TPricing = record
    class function FinalPrice(Base: Currency; DiscountPercent: Integer): Currency; static;
  end;
implementation
class function TPricing.FinalPrice(Base: Currency; DiscountPercent: Integer): Currency;
begin
  Result := Base * (100 - DiscountPercent) / 100;
end;
end.

// Определите реальную гарантию в FormDependencies.
unit FormDependencies;
interface
uses CustomerForm, InvoiceForm;
type
  TMainForm = class
    procedure OpenCustomer(Id: Integer);
  end;
implementation
procedure TMainForm.OpenCustomer(Id: Integer);
begin
  CustomerForm.CurrentId := Id;
  CustomerForm.Show;
  InvoiceForm.RefreshForCustomer(Id);
end;
end.