fcEvaluator.hpp
上传用户:hylc_2004
上传日期:2014-01-23
资源大小:46800k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4. // (DO NOT EDIT: machine generated header) 'fcEvaluator.pas' rev: 5.00
  5. #ifndef fcEvaluatorHPP
  6. #define fcEvaluatorHPP
  7. #pragma delphiheader begin
  8. #pragma option push -w-
  9. #pragma option push -Vx
  10. #include <fcCommon.hpp> // Pascal unit
  11. #include <SysUtils.hpp> // Pascal unit
  12. #include <Classes.hpp> // Pascal unit
  13. #include <SysInit.hpp> // Pascal unit
  14. #include <System.hpp> // Pascal unit
  15. //-- user supplied -----------------------------------------------------------
  16. namespace Fcevaluator
  17. {
  18. //-- type declarations -------------------------------------------------------
  19. #pragma option push -b-
  20. enum TOperator { opMultiply, opDivide, opAdd, opSubtract };
  21. #pragma option pop
  22. typedef Set<TOperator, opMultiply, opSubtract>  TOperators;
  23. class DELPHICLASS TfcEvaluator;
  24. class PASCALIMPLEMENTATION TfcEvaluator : public System::TObject 
  25. {
  26. typedef System::TObject inherited;
  27. protected:
  28. /*         class method */ static bool __fastcall GetOperands(TMetaClass* vmt, AnsiString s, TOperators 
  29. Operators, AnsiString &LOperand, AnsiString &ROperand, TOperator &FoundOp);
  30. /*         class method */ static void __fastcall ValidateString(TMetaClass* vmt, AnsiString s);
  31. /*         class method */ static void __fastcall FixString(TMetaClass* vmt, AnsiString &s);
  32. public:
  33. /*         class method */ static int __fastcall Evaluate(TMetaClass* vmt, AnsiString s);
  34. public:
  35. #pragma option push -w-inl
  36. /* TObject.Create */ inline __fastcall TfcEvaluator(void) : System::TObject() { }
  37. #pragma option pop
  38. #pragma option push -w-inl
  39. /* TObject.Destroy */ inline __fastcall virtual ~TfcEvaluator(void) { }
  40. #pragma option pop
  41. };
  42. //-- var, const, procedure ---------------------------------------------------
  43. extern PACKAGE char OPERATORSCHAR[4];
  44. } /* namespace Fcevaluator */
  45. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  46. using namespace Fcevaluator;
  47. #endif
  48. #pragma option pop // -w-
  49. #pragma option pop // -Vx
  50. #pragma delphiheader end.
  51. //-- end unit ----------------------------------------------------------------
  52. #endif // fcEvaluator