unperiodtableclasses.hpp

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

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

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

#ifndef UnperiodtableclassesHPP
#define UnperiodtableclassesHPP

#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 <Unsprclasses.hpp>	// Pascal unit

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

namespace Unperiodtableclasses
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TElement;
class PASCALIMPLEMENTATION TElement : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Byte FNumber;
	AnsiString FSymbol;
	AnsiString FName;
	float FWeight;
	bool FEnabled;
	bool FRFAUsed;
	bool __fastcall ElmRFUsed(void);
	
public:
	Unsprclasses::TXRFPeak* KaLine;
	Unsprclasses::TXRFPeak* KbLine;
	Unsprclasses::TXRFPeak* LaLine;
	Unsprclasses::TXRFPeak* LbLine;
	Unsprclasses::TXRFPeak* MaLine;
	__fastcall TElement(void);
	__fastcall ~TElement(void);
	void __fastcall Clear(void);
	void __fastcall Reset(void);
	
__published:
	__property Byte Number = {read=FNumber, write=FNumber, nodefault};
	__property AnsiString Symbol = {read=FSymbol, write=FSymbol};
	__property AnsiString Name = {read=FName, write=FName};
	__property float Weight = {read=FWeight, write=FWeight};
	__property bool Enabled = {read=FEnabled, write=FEnabled, nodefault};
	__property bool RFAUsed = {read=ElmRFUsed, write=FRFAUsed, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TElement(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPeriodicTable;
class PASCALIMPLEMENTATION TPeriodicTable : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Byte FUsedElmCount;
	bool FKlibUse;
	bool FLlibUse;
	bool FMlibUse;
	float FLoEnergy;
	float FHiEnergy;
	Byte FEnabledElms;
	
public:
	Dbtables::TTable* Table;
	TElement* Elements[103];
	Unsprclasses::TXRFPeak* EscPeaks[10];
	Unsprclasses::TXRFPeak* SumPeaks[10];
	__fastcall TPeriodicTable(void);
	__fastcall ~TPeriodicTable(void);
	void __fastcall ResetUsedPeaks(void);
	void __fastcall ReadFromFile(AnsiString Path, AnsiString TabName);
	void __fastcall SetEnabledElements(void);
	Byte __fastcall GetUsedElmCount(void);
	void __fastcall GetUsedElmStatist(Byte &KaCount, Byte &KbCount, Byte &LaCount, Byte &LbCount, Byte &MaCount, Byte &EscCount, Byte &SumCount);
	void __fastcall Copy(TPeriodicTable* Source);
	void __fastcall CopyAllPeaksToPeakSet(Unsprclasses::TXRFPeakSet* PeakSet);
	void __fastcall CopyUsedPeaksToPeakSet(Unsprclasses::TXRFPeakSet* PeakSet);
	void __fastcall CopyUsedPeaksFromPeakSet(Unsprclasses::TXRFPeakSet* PeakSet);
	void __fastcall DefineAdditionalPeaks(void);
	
__published:
	__property Byte UsedElmCount = {read=GetUsedElmCount, write=FUsedElmCount, nodefault};
	__property bool KlibUse = {read=FKlibUse, write=FKlibUse, nodefault};
	__property bool LlibUse = {read=FLlibUse, write=FLlibUse, nodefault};
	__property bool MlibUse = {read=FMlibUse, write=FMlibUse, nodefault};
	__property float LoEnergy = {read=FLoEnergy, write=FLoEnergy};
	__property float HiEnergy = {read=FHiEnergy, write=FHiEnergy};
	__property Byte EnabledElms = {read=FEnabledElms, write=FEnabledElms, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TPeriodicTable(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint maxElemCount = 0x67;

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

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