[ Pobierz całość w formacie PDF ]
.7 i10.8.Prezentowany kod znajduje siê równie¿ na do³¹czonym do ksi¹¿ki CD–ROMie.Wydruk 10.7 Deklaracja klasy TNonVCLTypeInfo//----------------------------------------------------------------------//#ifndef NonVCLTypeInfoH#define NonVCLTypeInfoH//----------------------------------------------------------------------//#ifndef TypInfoHPP#include#endif//----------------------------------------------------------------------////class __declspec(delphiclass) TNonVCLTypesClass;class PACKAGE TNonVCLTypeInfo : public TObject{public:// Podstawowe typy ca³kowitoliczbowestatic PTypeInfo __fastcall Int();static PTypeInfo __fastcall UnsignedInt();static PTypeInfo __fastcall ShortInt();static PTypeInfo __fastcall UnsignedShortInt();static PTypeInfo __fastcall LongInt();static PTypeInfo __fastcall UnsignedLongInt();static PTypeInfo __fastcall Char();static PTypeInfo __fastcall UnsignedChar();static PTypeInfo __fastcall SignedChar();// Podstawowe typy zmiennoprzecinkowestatic PTypeInfo __fastcall Double();static PTypeInfo __fastcall LongDouble();static PTypeInfo __fastcall Float();// Podstawowy typ boolowskistatic PTypeInfo __fastcall Bool();// Klasa AnsiStringstatic PTypeInfo __fastcall AnsiString();private:// #pragma option push -w-inlinline __fastcall TNonVCLTypeInfo() : TObject(){ }};//----------------------------------------------------------------------//Tu znajduje siê deklaracja klasy TNonVCLTypesClass, prezentowana na wydruku10.6//----------------------------------------------------------------------//#endifWydruk 10.8 Implementacja klasy TNonVCLTypeInfo//----------------------------------------------------------------------//#include#pragma hdrstop#include "NonVCLTypeInfo
[ Pobierz całość w formacie PDF ]