maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
7066: TSizeChangedEvent', 'Procedure ( Sender : TObject; OldColCount, OldRowCount : integer)<br />
7067: TBeginSortEvent', 'Procedure ( Sender : TObject; var Col : integer)<br />
7068: TEndSortEvent', 'Procedure ( Sender : TObject; Col : integer)<br />
7069: TGetSortStyleEvent', 'Procedure ( Sender : TObject; Col : intege'<br />
7070: +'r; var SortStyle : TSortStyle)<br />
7071: TCellValidateEvent', 'Procedure ( Sender : TObject; ACol, ARow :'<br />
7072: +' integer; const OldValue : string; var NewValue : String; var Valid : Boolean)<br />
7073: SIRegister_TSortGrid(CL);<br />
7074: Function ExtendedCompare( const Str1, Str2 : String) : Integer<br />
7075: Function NormalCompare( const Str1, Str2 : String) : Integer<br />
7076: Function DateTimeCompare( const Str1, Str2 : String) : Integer<br />
7077: Function NumericCompare( const Str1, Str2 : String) : Integer<br />
7078: Function TimeCompare( const Str1, Str2 : String) : Integer<br />
7079: //Function Compare( Item1, Item2 : Pointer) : Integer<br />
7<strong>08</strong>0: end;<br />
7<strong>08</strong>1:<br />
7<strong>08</strong>2: ************************************ procedure Register_IB(CL: TPSPascalCompiler);<br />
7<strong>08</strong>3: Procedure IBAlloc( var P, OldSize, NewSize : Integer)<br />
7<strong>08</strong>4: Procedure IBError( ErrMess : TIBClientError; const Args : array of const)<br />
7<strong>08</strong>5: Procedure IBDataBaseError<br />
7<strong>08</strong>6: Function StatusVector : PISC_STATUS<br />
7<strong>08</strong>7: Function StatusVectorArray : PStatusVector<br />
7<strong>08</strong>8: Function CheckStatusVector( ErrorCodes : array of ISC_STATUS) : Boolean<br />
7<strong>08</strong>9: Function StatusVectorAsText : string<br />
7090: Procedure SetIBDataBaseErrorMessages( Value : TIBDataBaseErrorMessages)<br />
7091: Function GetIBDataBaseErrorMessages : TIBDataBaseErrorMessages<br />
7092:<br />
7093:<br />
7094: //*****************************unit uPSI_BoldUtils;*******************************************<br />
7095: Function CharCount( c : char; const s : string) : integer<br />
7096: Function BoldNamesEqual( const name1, name2 : string) : Boolean<br />
7097: Procedure BoldAppendToStrings(strings: TStrings; const aString: string; const ForceNewLine:Boolean)<br />
7098: Function BoldSeparateStringList(strings:TStringList;const Separator,PreString,PostString:String):String<br />
7099: Function BoldSeparatedAppend( const S1, S2 : string; const Separator : string) : string<br />
7100: Function BoldTrim( const S : string) : string<br />
7101: Function BoldIsPrefix( const S, Prefix : string) : Boolean<br />
7102: Function BoldStrEqual( P1, P2 : PChar; Len : integer) : Boolean<br />
7103: Function BoldStrAnsiEqual( P1, P2 : PChar; Len : integer) : Boolean<br />
7104: Function BoldAnsiEqual( const S1, S2 : string) : Boolean<br />
71<strong>05</strong>: Function BoldStrStringEqual( const S1 : string; P2 : PChar; Len : integer) : Boolean<br />
7106: Function BoldCaseIndependentPos( const Substr, S : string) : Integer<br />
7107: //Procedure EnumToStrings( aTypeInfo : pTypeInfo; Strings : TStrings)<br />
71<strong>08</strong>: Function CapitalisedToSpaced( Capitalised : String) : String<br />
7109: Function SpacedToCapitalised( Spaced : String) : String<br />
7110: Function BooleanToString( BoolValue : Boolean) : String<br />
7111: Function StringToBoolean( StrValue : String) : Boolean<br />
7112: Function GetUpperLimitForMultiplicity( const Multiplicity : String) : Integer<br />
7113: Function GetLowerLimitForMultiplicity( const Multiplicity : String) : Integer<br />
71<strong>14</strong>: Function StringListToVarArray( List : TStringList) : variant<br />
7115: Function IsLocalMachine( const Machinename : WideString) : Boolean<br />
7116: Function GetComputerNameStr : string<br />
71<strong>17</strong>: Function TimeStampComp( const Time1, Time2 : TTimeStamp) : Integer<br />
7118: Function BoldStrToDateFmt(const S:string;const DateFormat:string;const DateSeparatorChar:char):TDateTime<br />
7119: Function BoldDateToStrFmt(const aDate:TDateTime;DateFormat:string;const DateSeparatorChar:char):String;<br />
7120: Function BoldParseFormattedDateList(const value:String;const formats:TStrings;var Date:TDateTime):Boolean;<br />
7121: Function BoldParseFormattedDate(const value:String;const formats:array of string; var<br />
Date:TDateTime):Boolean;<br />
7122: Procedure EnsureTrailing( var Str : String; ch : char)<br />
7123: Function BoldDirectoryExists( const Name : string) : Boolean<br />
7124: Function BoldForceDirectories( Dir : string) : Boolean<br />
7125: Function BoldRootRegistryKey : string<br />
7126: Function GetModuleFileNameAsString( IncludePath : Boolean) : string<br />
7127: Function BoldVariantToStrings( V : OleVariant; Strings : TStrings) : Integer<br />
7128: Function LogicalAnd( A, B : Integer) : Boolean<br />
7129: record TByHandleFileInformation dwFileAttributes : DWORD; '<br />
7130: +'ftCreationTime : TFileTime; ftLastAccessTime : TFileTime; ftLastWriteTime '<br />
7131: +': TFileTime; dwVolumeSerialNumber : DWORD; nFileSizeHigh : DWORD; nFileSiz'<br />
7132: +'eLow : DWORD; nNumberOfLinks : DWORD; nFileIndexHigh : DWORD; nFileIndexLow : DWORD; end<br />
7133: Function GetFileInformationByHandle(hFile:THandle;var lpFileInformation:TByHandleFileInformation):BOOL;<br />
7134: Function IsFirstInstance : Boolean<br />
7135: Procedure ActivateFirst( AString : PChar)<br />
7136: Procedure ActivateFirstCommandLine<br />
71<strong>37</strong>: function MakeAckPkt(const BlockNumber: Word): string;<br />
7138: procedure SendError(UDPBase:TIdUDPBase;APeerIP:string;const APort:Int;const ErrNumber:Word;ErrStr:string;<br />
7139: procedure SendError(UDPClient: TIdUDPClient; const ErrNumber: Word; ErrorString: string); overload;<br />
7<strong>14</strong>0: procedure SendError(UDPBase: TIdUDPBase; APeerIP: string; const APort: Integer; E: Exception); overload;<br />
7<strong>14</strong>1: procedure SendError(UDPClient: TIdUDPClient; E: Exception); overload;<br />
7<strong>14</strong>2: function IdStrToWord(const Value: String): Word;<br />
7<strong>14</strong>3: function IdWordToStr(const Value: Word): WordStr;<br />
7<strong>14</strong>4: Function HasInstructionSet( const InstructionSet : TCPUInstructionSet) : Boolean<br />
7<strong>14</strong>5: Function CPUFeatures : TCPUFeatures<br />
7<strong>14</strong>6:<br />
7<strong>14</strong>7: procedure SIRegister_xrtl_util_CPUUtils(CL: TPSPascalCompiler);<br />
7<strong>14</strong>8: begin<br />
7<strong>14</strong>9: AddTypeS('TXRTLBitIndex', 'Integer<br />
7150: Function XRTLSwapBits( Data : Cardinal; Bit1Index, Bit2Index : TXRTLBitIndex) : Cardinal<br />
7151: Function XRTLBitTest( Data : Cardinal; BitIndex : TXRTLBitIndex) : Boolean<br />
7152: Function XRTLBitSet( Data : Cardinal; BitIndex : TXRTLBitIndex) : Cardinal<br />
7153: Function XRTLBitReset( Data : Cardinal; BitIndex : TXRTLBitIndex) : Cardinal<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 83
Change language