unit Unit6;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, ComCtrls;

Var

  C1       :Boolean;
  C2       :Boolean;
    {Numero de elementos}
{  Nd1      :Integer;  {numero de detectables capa 1}
  Nnd1     :Integer;  {numero de no detectables capa 1}
  Nd2      :Integer;  {numero de detectables capa 2}
  Nnd2     :Integer;  {numero de no detectables capa 2}     }

  {Numeros atómicos de los elementos}
  Zd1     :array[0..100] of TEdit;   {detectables capa 1}
  Znd1    :array[0..100] of TEdit;   {no detectables capa 1}
  Zd2     :array[0..100] of TEdit;   {detectables capa 2}
  Znd2    :array[0..100] of TEdit;   {no detectables capa 2}

  {Concentraciones de los elementos}
  Cd1      :array[0..100] of TEdit;  {detectables capa 1}
  ChCd1    :array[0..100] of TCheckBox;
  Cnd1     :array[0..100] of TEdit;  {no detectables capa 1}
  ChCnd1   :array[0..100] of TCheckBox;
  Cd2      :array[0..100] of TEdit;  {detectables capa 2}
  ChCd2    :array[0..100] of TCheckBox;
  Cnd2     :array[0..100] of TEdit;  {no detectables capa 2}
  ChCnd2   :array[0..100] of TCheckBox;

  {Simbolo de los elementos para las concentraciones}
  Eld1      :array[0..100] of TLabel;  {detectables capa 1}
  Elnd1     :array[0..100] of TLabel;  {no detectables capa 1}
  Eld2      :array[0..100] of TLabel;  {detectables capa 2}
  Elnd2     :array[0..100] of TLabel;  {no detectables capa 2}

  {Numero de lineas para los elementos detectables}
  NL1      :array[0..30] of TEdit;  {detectables capa 1}
  NL2      :array[0..30] of TEdit;  {detectables capa 2}
  {Simbolo de los elementos para el numero de lineas}
  Elem1      :array[0..30] of TLabel;  {detectables capa 1}
  Elem2      :array[0..30] of TLabel;  {detectables capa 2}

  {Pestañas para los elementos detectables}
  PEl1     :array[0..30] of TTabsheet;
  PEl2     :array[0..30] of TTabsheet;

  {cuadro con las transiciones}
  CLineas1  :array[0..30] of TGroupBox;
  CLineas2  :array[0..30] of TGroupBox;

  {cuadro con los bordes}
  Cbordes1   :array[0..30] of TGroupBox;
  Cbordes2   :array[0..30] of TGroupBox;

  {cuadro con las RTP}
  Crtps1     :array[0..30] of TGroupBox;
  Crtps2     :array[0..30] of TGroupBox;

  {cuadro con los Tail}
  CTail1     :array[0..30] of TGroupBox;
  CTail2     :array[0..30] of TGroupBox;

  {cuadro con los Beta}
  CBeta1     :array[0..30] of TGroupBox;
  CBeta2     :array[0..30] of TGroupBox;

  {cuadro con los anchos}
  CPerfil1  :array[0..30] of TGroupBox;
  CPerfil2  :array[0..30] of TGroupBox;

  {cuadro con las energias de los elementos detectables}
  CEnergy1  :array[0..30] of TGroupBox;
  CEnergy2  :array[0..30] of TGroupBox;

  {nombre de las lineas para cada elemento}
  Lineas1   :array[0..30,0..20] of TEdit;
  Lineas2   :array[0..30,0..20] of TEdit;

  {borde de cada linea para cada elemento}
  Bordes1    :array[0..30,0..20] Of TEdit;
  Bordes2    :array[0..30,0..20] Of TEdit;

  {energia de cada linea para cada elemento}
  Energias1    :array[0..30,0..20] Of TEdit;
  ChEnergias1  :array[0..30,0..20] Of TCheckBox;
  Energias2    :array[0..30,0..20] Of TEdit;
  ChEnergias2  :array[0..30,0..20] Of TCheckBox;

  {RTP de cada linea para cada elemento}
  Rtps1    :array[0..30,0..20] Of TEdit;
  ChRtps1  :array[0..30,0..20] Of TCheckBox;
  Rtps2    :array[0..30,0..20] Of TEdit;
  ChRtps2  :array[0..30,0..20] Of TCheckBox;

  {Tail de cada linea para cada elemento}
  Tail1    :array[0..30,0..20] Of TEdit;
  ChTail1  :array[0..30,0..20] Of TCheckBox;
  Tail2    :array[0..30,0..20] Of TEdit;
  ChTail2  :array[0..30,0..20] Of TCheckBox;

  {Beta de cada linea para cada elemento}
  Beta1    :array[0..30,0..20] Of TEdit;
  ChBeta1  :array[0..30,0..20] Of TCheckBox;
  Beta2    :array[0..30,0..20] Of TEdit;
  ChBeta2  :array[0..30,0..20] Of TCheckBox;

  {ancho de cada linea para cada elemento}
  Perfil1    :array[0..30,0..20] Of TEdit;
  Perfil2    :array[0..30,0..20] Of TEdit;

    {Grupos}
  G          :array[0..30] of TEdit;
  ChG        :array[0..30] of TCheckBox;
  FE         :array[0..30] of TEdit;


implementation

end.

