// Borland C++ Builder // Copyright (c) 1995, 2005 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'Jvstrtohtml.pas' rev: 10.00 #ifndef JvstrtohtmlHPP #define JvstrtohtmlHPP #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 // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Jvstrtohtml { //-- type declarations ------------------------------------------------------- class DELPHICLASS TJvStrToHtml; class PASCALIMPLEMENTATION TJvStrToHtml : public Jvcomponentbase::TJvComponent { typedef Jvcomponentbase::TJvComponent inherited; private: AnsiString FHtml; AnsiString FValue; void __fastcall SetHtml(const AnsiString Value); void __fastcall SetValue(const AnsiString Value); public: __fastcall virtual TJvStrToHtml(Classes::TComponent* AOwner); AnsiString __fastcall TextToHtml(const AnsiString Text); AnsiString __fastcall HtmlToText(const AnsiString Text); __published: __property AnsiString Text = {read=FValue, write=SetValue}; __property AnsiString Html = {read=FHtml, write=SetHtml}; public: #pragma option push -w-inl /* TComponent.Destroy */ inline __fastcall virtual ~TJvStrToHtml(void) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- extern PACKAGE AnsiString __fastcall StringToHtml(const AnsiString Value); extern PACKAGE AnsiString __fastcall HtmlToString(const AnsiString Value); extern PACKAGE AnsiString __fastcall CharToHtml(char Ch); } /* namespace Jvstrtohtml */ using namespace Jvstrtohtml; #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // Jvstrtohtml