iniunit.~pas

delphi实现的MODBUS主站程序

unit IniUnit;

interface

uses
  Classes, SysUtils, IniFiles, Forms, Windows;

const
  csIniSLAVECOUNTSection = 'SLAVECOUNT';
  csIniSTATION1Section = 'STATION1';
  csIniSTATION2Section = 'STATION2';
  csIniSTATION3Section = 'STATION3';
  csIniSTATION4Section = 'STATION4';
  csIniSTATION5Section = 'STATION5';
  csIniSTATION6Section = 'STATION6';
  csIniSTATION7Section = 'STATION7';
  csIniSTATION8Section = 'STATION8';
  csIniSTATION9Section = 'STATION9';
  csIniSTATION10Section = 'STATION10';
  csIniSTATION11Section = 'STATION11';
  csIniSTATION12Section = 'STATION12';
  csIniSTATION13Section = 'STATION13';
  csIniSTATION14Section = 'STATION14';
  csIniSTATION15Section = 'STATION15';
  csIniSTATION16Section = 'STATION16';

  {Section: SLAVECOUNT}
  csIniSLAVECOUNTCOUNT = 'COUNT';

  {Section: STATION1}
  csIniSTATION1ADDRESS = 'ADDRESS';
  csIniSTATION1CODE = 'CODE';
  csIniSTATION1OFFSET = 'OFFSET';
  csIniSTATION1QUANTITY = 'QUANTITY';

  {Section: STATION2}
  csIniSTATION2ADDRESS = 'ADDRESS';
  csIniSTATION2CODE = 'CODE';
  csIniSTATION2OFFSET = 'OFFSET';
  csIniSTATION2QUANTITY = 'QUANTITY';

  {Section: STATION3}
  csIniSTATION3ADDRESS = 'ADDRESS';
  csIniSTATION3CODE = 'CODE';
  csIniSTATION3OFFSET = 'OFFSET';
  csIniSTATION3QUANTITY = 'QUANTITY';

  {Section: STATION4}
  csIniSTATION4ADDRESS = 'ADDRESS';
  csIniSTATION4CODE = 'CODE';
  csIniSTATION4OFFSET = 'OFFSET';
  csIniSTATION4QUANTITY = 'QUANTITY';

  {Section: STATION5}
  csIniSTATION5ADDRESS = 'ADDRESS';
  csIniSTATION5CODE = 'CODE';
  csIniSTATION5OFFSET = 'OFFSET';
  csIniSTATION5QUANTITY = 'QUANTITY';

  {Section: STATION6}
  csIniSTATION6ADDRESS = 'ADDRESS';
  csIniSTATION6CODE = 'CODE';
  csIniSTATION6OFFSET = 'OFFSET';
  csIniSTATION6QUANTITY = 'QUANTITY';

  {Section: STATION7}
  csIniSTATION7ADDRESS = 'ADDRESS';
  csIniSTATION7CODE = 'CODE';
  csIniSTATION7OFFSET = 'OFFSET';
  csIniSTATION7QUANTITY = 'QUANTITY';

  {Section: STATION8}
  csIniSTATION8ADDRESS = 'ADDRESS';
  csIniSTATION8CODE = 'CODE';
  csIniSTATION8OFFSET = 'OFFSET';
  csIniSTATION8QUANTITY = 'QUANTITY';

  {Section: STATION9}
  csIniSTATION9ADDRESS = 'ADDRESS';
  csIniSTATION9CODE = 'CODE';
  csIniSTATION9OFFSET = 'OFFSET';
  csIniSTATION9QUANTITY = 'QUANTITY';

  {Section: STATION10}
  csIniSTATION10ADDRESS = 'ADDRESS';
  csIniSTATION10CODE = 'CODE';
  csIniSTATION10OFFSET = 'OFFSET';
  csIniSTATION10QUANTITY = 'QUANTITY';

  {Section: STATION11}
  csIniSTATION11ADDRESS = 'ADDRESS';
  csIniSTATION11CODE = 'CODE';
  csIniSTATION11OFFSET = 'OFFSET';
  csIniSTATION11QUANTITY = 'QUANTITY';

  {Section: STATION12}
  csIniSTATION12ADDRESS = 'ADDRESS';
  csIniSTATION12CODE = 'CODE';
  csIniSTATION12OFFSET = 'OFFSET';
  csIniSTATION12QUANTITY = 'QUANTITY';

  {Section: STATION13}
  csIniSTATION13ADDRESS = 'ADDRESS';
  csIniSTATION13CODE = 'CODE';
  csIniSTATION13OFFSET = 'OFFSET';
  csIniSTATION13QUANTITY = 'QUANTITY';

  {Section: STATION14}
  csIniSTATION14ADDRESS = 'ADDRESS';
  csIniSTATION14CODE = 'CODE';
  csIniSTATION14OFFSET = 'OFFSET';
  csIniSTATION14QUANTITY = 'QUANTITY';

  {Section: STATION15}
  csIniSTATION15ADDRESS = 'ADDRESS';
  csIniSTATION15CODE = 'CODE';
  csIniSTATION15OFFSET = 'OFFSET';
  csIniSTATION15QUANTITY = 'QUANTITY';

  {Section: STATION16}
  csIniSTATION16ADDRESS = 'ADDRESS';
  csIniSTATION16CODE = 'CODE';
  csIniSTATION16OFFSET = 'OFFSET';
  csIniSTATION16QUANTITY = 'QUANTITY';

type
  TIniOptions = class(TObject)
  private
    {Section: SLAVECOUNT}
    FSLAVECOUNTCOUNT: Integer;

    {Section: STATION1}
    FSTATION1ADDRESS: Integer;
    FSTATION1CODE: Integer;
    FSTATION1OFFSET: Integer;
    FSTATION1QUANTITY: Integer;

    {Section: STATION2}
    FSTATION2ADDRESS: Integer;
    FSTATION2CODE: Integer;
    FSTATION2OFFSET: Integer;
    FSTATION2QUANTITY: Integer;

    {Section: STATION3}
    FSTATION3ADDRESS: Integer;
    FSTATION3CODE: Integer;
    FSTATION3OFFSET: Integer;
    FSTATION3QUANTITY: Integer;

    {Section: STATION4}
    FSTATION4ADDRESS: Integer;
    FSTATION4CODE: Integer;
    FSTATION4OFFSET: Integer;
    FSTATION4QUANTITY: Integer;

    {Section: STATION5}
    FSTATION5ADDRESS: Integer;
    FSTATION5CODE: Integer;
    FSTATION5OFFSET: Integer;
    FSTATION5QUANTITY: Integer;

    {Section: STATION6}
    FSTATION6ADDRESS: Integer;
    FSTATION6CODE: Integer;
    FSTATION6OFFSET: Integer;
    FSTATION6QUANTITY: Integer;

    {Section: STATION7}
    FSTATION7ADDRESS: Integer;
    FSTATION7CODE: Integer;
    FSTATION7OFFSET: Integer;
    FSTATION7QUANTITY: Integer;

    {Section: STATION8}
    FSTATION8ADDRESS: Integer;
    FSTATION8CODE: Integer;
    FSTATION8OFFSET: Integer;
    FSTATION8QUANTITY: Integer;

    {Section: STATION9}
    FSTATION9ADDRESS: Integer;
    FSTATION9CODE: Integer;
    FSTATION9OFFSET: Integer;
    FSTATION9QUANTITY: Integer;

    {Section: STATION10}
    FSTATION10ADDRESS: Integer;
    FSTATION10CODE: Integer;
    FSTATION10OFFSET: Integer;
    FSTATION10QUANTITY: Integer;

    {Section: STATION11}
    FSTATION11ADDRESS: Integer;
    FSTATION11CODE: Integer;
    FSTATION11OFFSET: Integer;
    FSTATION11QUANTITY: Integer;

    {Section: STATION12}
    FSTATION12ADDRESS: Integer;
    FSTATION12CODE: Integer;
    FSTATION12OFFSET: Integer;
    FSTATION12QUANTITY: Integer;

    {Section: STATION13}
    FSTATION13ADDRESS: Integer;
    FSTATION13CODE: Integer;
    FSTATION13OFFSET: Integer;
    FSTATION13QUANTITY: Integer;

    {Section: STATION14}
    FSTATION14ADDRESS: Integer;
    FSTATION14CODE: Integer;
    FSTATION14OFFSET: Integer;
    FSTATION14QUANTITY: Integer;

    {Section: STATION15}
    FSTATION15ADDRESS: Integer;
    FSTATION15CODE: Integer;
    FSTATION15OFFSET: Integer;
    FSTATION15QUANTITY: Integer;

    {Section: STATION16}
    FSTATION16ADDRESS: Integer;
    FSTATION16CODE: Integer;
    FSTATION16OFFSET: Integer;
    FSTATION16QUANTITY: Integer;
  public
    procedure LoadSettings(Ini: TIniFile);
    procedure SaveSettings(Ini: TIniFile);

    {Section: SLAVECOUNT}
    property SLAVECOUNTCOUNT: Integer read FSLAVECOUNTCOUNT write FSLAVECOUNTCOUNT;

    {Section: STATION1}
    property STATION1ADDRESS: Integer read FSTATION1ADDRESS write FSTATION1ADDRESS;
    property STATION1CODE: Integer read FSTATION1CODE write FSTATION1CODE;
    property STATION1OFFSET: Integer read FSTATION1OFFSET write FSTATION1OFFSET;
    property STATION1QUANTITY: Integer read FSTATION1QUANTITY write FSTATION1QUANTITY;

    {Section: STATION2}
    property STATION2ADDRESS: Integer read FSTATION2ADDRESS write FSTATION2ADDRESS;
    property STATION2CODE: Integer read FSTATION2CODE write FSTATION2CODE;
    property STATION2OFFSET: Integer read FSTATION2OFFSET write FSTATION2OFFSET;
    property STATION2QUANTITY: Integer read FSTATION2QUANTITY write FSTATION2QUANTITY;

    {Section: STATION3}
    property STATION3ADDRESS: Integer read FSTATION3ADDRESS write FSTATION3ADDRESS;
    property STATION3CODE: Integer read FSTATION3CODE write FSTATION3CODE;
    property STATION3OFFSET: Integer read FSTATION3OFFSET write FSTATION3OFFSET;
    property STATION3QUANTITY: Integer read FSTATION3QUANTITY write FSTATION3QUANTITY;

    {Section: STATION4}
    property STATION4ADDRESS: Integer read FSTATION4ADDRESS write FSTATION4ADDRESS;
    property STATION4CODE: Integer read FSTATION4CODE write FSTATION4CODE;
    property STATION4OFFSET: Integer read FSTATION4OFFSET write FSTATION4OFFSET;
    property STATION4QUANTITY: Integer read FSTATION4QUANTITY write FSTATION4QUANTITY;

    {Section: STATION5}
    property STATION5ADDRESS: Integer read FSTATION5ADDRESS write FSTATION5ADDRESS;
    property STATION5CODE: Integer read FSTATION5CODE write FSTATION5CODE;
    property STATION5OFFSET: Integer read FSTATION5OFFSET write FSTATION5OFFSET;
    property STATION5QUANTITY: Integer read FSTATION5QUANTITY write FSTATION5QUANTITY;

    {Section: STATION6}
    property STATION6ADDRESS: Integer read FSTATION6ADDRESS write FSTATION6ADDRESS;
    property STATION6CODE: Integer read FSTATION6CODE write FSTATION6CODE;
    property STATION6OFFSET: Integer read FSTATION6OFFSET write FSTATION6OFFSET;
    property STATION6QUANTITY: Integer read FSTATION6QUANTITY write FSTATION6QUANTITY;

    {Section: STATION7}
    property STATION7ADDRESS: Integer read FSTATION7ADDRESS write FSTATION7ADDRESS;
    property STATION7CODE: Integer read FSTATION7CODE write FSTATION7CODE;
    property STATION7OFFSET: Integer read FSTATION7OFFSET write FSTATION7OFFSET;
    property STATION7QUANTITY: Integer read FSTATION7QUANTITY write FSTATION7QUANTITY;

    {Section: STATION8}
    property STATION8ADDRESS: Integer read FSTATION8ADDRESS write FSTATION8ADDRESS;