unregrobjects.hpp

神经网络用于X荧光分析的源码。输入元素峰的强度

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Unregrobjects.pas' rev: 10.00

#ifndef UnregrobjectsHPP
#define UnregrobjectsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Dbtables.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Bde.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Inifiles.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Unregrobjects
{
//-- type declarations -------------------------------------------------------
typedef AnsiString unRegrObjects__1[11];

typedef AnsiString unRegrObjects__2[50];

typedef AnsiString unRegrObjects__3[50];

typedef AnsiString unRegrObjects__4[50];

typedef AnsiString unRegrObjects__5[50];

typedef AnsiString unRegrObjects__6[56];

typedef AnsiString unRegrObjects__7[56];

typedef AnsiString unRegrObjects__8[50];

typedef AnsiString unRegrObjects__9[50];

typedef AnsiString unRegrObjects__01[17];

struct TUserData
{
	
public:
	AnsiString CalibTableName;
	Byte IterationsCount;
	Byte IterationsCountC;
	Byte IterationsCountLOOCV;
	Byte IterationsCountV;
	Byte IterationsCountCV;
	Byte AvalableElemCount;
	AnsiString AvalableElemSymbol[50];
	AnsiString AvalableElemName[50];
	Byte CalibrSubstCount;
	AnsiString CalibrSubstName[50];
	AnsiString CalibrSubstLabel[50];
	double Concentration[50];
	double ConcentrSave[50];
	double CalibrStdDev[50];
	Byte CalibrSubstAtomN[50];
	double CalibrSubstPeakE[50];
	bool Error[8];
	bool Status[8];
	int PeakCount;
	AnsiString PeakFieldName[56];
	AnsiString PeakLabel[56];
	double PeakValue[56];
	double PeakEnergy[56];
	AnsiString FullAreaFieldName[50];
	AnsiString FullAreaLabel[50];
	double FullAreaValue[50];
	int MeasNum;
	System::TDateTime MeasDateTime;
	bool MeasIsValid;
	bool AR_Values;
	TDate MeasStartDate;
	TTime MeasStartTime;
	double LiveTime;
	double RealTime;
	double DeadTime;
	double FitStdDev;
	double CountRate;
	int IntCounts;
	int ErrorCode;
	bool AreaCorrectActive;
	bool ProbusWarn[32];
	float DetTemp;
	float TubeTemp;
	float SBoxTemp;
	float TubekV;
	float TubemA;
	float TubeFil;
	float Flow3;
	float Flow1;
	float Flow2;
	Word TubeHours;
	unsigned TubeMinuts;
	Word MeasCounter;
	AnsiString elename[17];
	float elenamearea[17];
	Word userpeakcount;
} ;

typedef AnsiString unRegrObjects__11[33];

typedef AnsiString unRegrObjects__21[56];

typedef AnsiString unRegrObjects__31[56];

struct TConfig
{
	
public:
	AnsiString CurrentAlias;
	bool UseAlias;
	AnsiString RegrFieldName;
	AnsiString LOOCVFieldName;
	AnsiString LabFieldName;
	AnsiString UseFieldName;
	AnsiString SamplTableName;
	AnsiString LaborTableName;
	AnsiString TypesTableName;
	AnsiString RowDataTableName;
	AnsiString ChartTitle;
	Byte CurrentTypeNo;
	AnsiString MaterTypeNames[33];
	AnsiString MaterTypeName;
	bool LifeShowSpr;
	Byte Language;
	AnsiString ProjectName;
	AnsiString ProgramLocation;
	AnsiString SPrgName;
	AnsiString XRFTablesPath;
	AnsiString XRFSprPath;
	AnsiString DataProjDir;
	Byte SubstCount;
	AnsiString SubstName[56];
	AnsiString SubstLabel[56];
	Byte SubstNo;
	Byte FloatPrec;
	bool PreparedCalc;
	Word LoChan;
	Word HiChan;
	Word AlteredFields;
} ;

//-- var, const, procedure ---------------------------------------------------
static const Shortint maxCoeffCount = 0x24;
static const Shortint maxMaterTypes = 0x20;
static const Shortint maxPeakCount = 0x38;
static const Shortint maxCalibrSubstCount = 0x32;
static const Shortint maxErrorCount = 0x8;
static const Shortint maxCompareRecCount = 0x1e;
#define prefRegForm "RegForm"
#define prefCalibrTable "Calibration"
#define ConfigFileName "OXEA_Calibr.ini"
#define prefRegrField "Regr_"
#define prefLabField "Labor_"
#define prefUseField "Used_"
#define prefLOOCVfield "LOOCV_"
#define UserDef "UserDef"
#define DefSamplTableName "CalibrData.db"
#define DefLabTableName "LabValues.db"
#define FormRefTabName "FormRef.db"
#define PeaksTableName "Peaks.db"
#define MaterTypesTabName "Types.db"
extern PACKAGE Byte maxIterationsCount;
extern PACKAGE double ConcAcuracy;
static const Shortint Calib = 0x0;
static const Shortint LOOCV = 0x1;
static const Shortint ExVal = 0x2;
static const Shortint Predt = 0x3;
static const Shortint Germ = 0x0;
static const Shortint Engl = 0x1;
static const Shortint Russ = 0x2;
static const Shortint AddUserValuesCount = 0xb;
extern PACKAGE AnsiString AddUserValueNames[11];
extern PACKAGE AnsiString ComToRel;
extern PACKAGE AnsiString ElmSum;
extern PACKAGE AnsiString __fastcall PeakLabelToSQLName(AnsiString PeakLabel);

}	/* namespace Unregrobjects */
using namespace Unregrobjects;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Unregrobjects