10.11.2015 Views

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

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

<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 />

7420: Function EncodeBase64(const S,Alphabet:AnsiString; const Pad:Boolean;const PadMultiple:Integer;const<br />

PadChar: AnsiChar) : AnsiString<br />

7421: Function DecodeBase64( const S, Alphabet : AnsiString; const PadSet : CharSet) : AnsiString<br />

7422: unit uPSI_cFundamentUtils;<br />

7423: Const('b64_MIMEBase64','Str').String('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/<br />

7424: Const('b64_UUEncode','String').String('!"#$%&''()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_';<br />

7425: Const('b64_XXEncode','String').String('+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';<br />

7426: Const('CCHARSET','Stringb64_XXEncode);<br />

7427: Const('CHEXSET','String'0123456789ABCDEF<br />

7428: Const('HEXDIGITS','String'0123456789ABCDEF<br />

7429: StHexDigits : array[0..$F] of Char = '0123456789ABCDEF';<br />

7430: Const('DIGISET','String'0123456789<br />

7431: Const('LETTERSET','String'ABCDEFGHIJKLMNOPQRSTUVWXYZ'<br />

7432: Const('DIGISET2','TCharset').SetSet('0123456789'<br />

7433: Const('LETTERSET2','TCharset').SetSet('ABCDEFGHIJKLMNOPQRSTUVWXYZ'<br />

7434: Const('HEXSET2','TCharset').SetSET('0123456789ABCDEF');<br />

7435: Const('NUMBERSET','TCharset').SetSet('0123456789');<br />

7436: Const('NUMBERS','String'0123456789');<br />

74<strong>37</strong>: Const('LETTERS','String'ABCDEFGHIJKLMNOPQRSTUVWXYZ');<br />

7438: Const('NUMBLETTS','String').SetString('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ');<br />

7439: Const('NUMBLETTSET','TCharset').SetSet('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ');<br />

7440: Function CharSetToStr( const C : CharSet) : AnsiString<br />

7441: Function StrToCharSet( const S : AnsiString) : CharSet<br />

7442: Function MIMEBase64Decode( const S : AnsiString) : AnsiString<br />

7443: Function MIMEBase64Encode( const S : AnsiString) : AnsiString<br />

7444: Function UUDecode( const S : AnsiString) : AnsiString<br />

7445: Function XXDecode( const S : AnsiString) : AnsiString<br />

7446: Function BytesToHex( const P : array of Byte; const UpperCase : Boolean) : AnsiString<br />

7447: Function InterfaceToStrA( const I : IInterface) : AnsiString<br />

7448: Function InterfaceToStrW( const I : IInterface) : WideString<br />

7449: Function InterfaceToStr( const I : IInterface) : String<br />

7450: Function ObjectClassName( const O : TObject) : String<br />

7451: Function ClassClassName( const C : TClass) : String<br />

7452: Function ObjectToStr( const O : TObject) : String<br />

7453: Function ObjectToString( const O : TObject) : String<br />

7454: Function CharSetToStr( const C : CharSet) : AnsiString<br />

7455: Function StrToCharSet( const S : AnsiString) : CharSet<br />

7456: Function HashStrA(const S : AnsiString; const Index : Integer; const Count: Integer;const<br />

AsciiCaseSensitive : Boolean; const Slots : LongWord) : LongWord<br />

7457: Function HashStrW(const S:WideString;const Index:Integer;const Count:Integer;const<br />

AsciiCaseSensitive:Boolean; const Slots:LongWord) : LongWord<br />

7458: Function HashStr(const S : String; const Index : Integer; const Count : Integer; const AsciiCaseSensitive<br />

: Boolean; const Slots : LongWord) : LongWord<br />

7459: Function HashInteger( const I : Integer; const Slots : LongWord) : LongWord<br />

7460: Function HashLongWord( const I : LongWord; const Slots : LongWord) : LongWord<br />

7461: Const('Bytes1KB','LongInt'( 1024);<br />

7462: SIRegister_IInterface(CL);<br />

7463: Procedure SelfTestCFundamentUtils<br />

7464:<br />

7465: Function CreateSchedule : IJclSchedule<br />

7466: Function NullStamp : TTimeStamp<br />

7467: Function CompareTimeStamps( const Stamp1, Stamp2 : TTimeStamp) : Int64<br />

7468: Function EqualTimeStamps( const Stamp1, Stamp2 : TTimeStamp) : Boolean<br />

7469: Function IsNullTimeStamp( const Stamp : TTimeStamp) : Boolean<br />

7470:<br />

7471: procedure SIRegister_uwinplot(CL: TPSPascalCompiler);<br />

7472: begin<br />

7473: AddTypeS('TFunc', 'function(X : Float) : Float;<br />

7474: Function InitGraphics( Width, Height : Integer) : Boolean<br />

7475: Procedure SetWindow( Canvas : TCanvas; X1, X2, Y1, Y2 : Integer; GraphBorder : Boolean)<br />

7476: Procedure SetOxScale( Scale : TScale; OxMin, OxMax, OxStep : Float)<br />

7477: Procedure SetOyScale( Scale : TScale; OyMin, OyMax, OyStep : Float)<br />

7478: Procedure GetOxScale( var Scale : TScale; var OxMin, OxMax, OxStep : Float)<br />

7479: Procedure GetOyScale( var Scale : TScale; var OyMin, OyMax, OyStep : Float)<br />

7480: Procedure SetGraphTitle( Title : String)<br />

7481: Procedure SetOxTitle( Title : String)<br />

7482: Procedure SetOyTitle( Title : String)<br />

7483: Function GetGraphTitle : String<br />

7484: Function GetOxTitle : String<br />

7485: Function GetOyTitle : String<br />

7486: Procedure PlotOxAxis( Canvas : TCanvas)<br />

7487: Procedure PlotOyAxis( Canvas : TCanvas)<br />

7488: Procedure PlotGrid( Canvas : TCanvas; Grid : TGrid)<br />

7489: Procedure WriteGraphTitle( Canvas : TCanvas)<br />

7490: Function SetMaxCurv( NCurv : Byte) : Boolean<br />

7491: Procedure SetPointParam( CurvIndex, Symbol, Size : Integer; Color : TColor)<br />

7492: Procedure SetLineParam( CurvIndex : Integer; Style : TPenStyle; Width : Integer; Color : TColor)<br />

7493: Procedure SetCurvLegend( CurvIndex : Integer; Legend : String)<br />

7494: Procedure SetCurvStep( CurvIndex, Step : Integer)<br />

7495: Function GetMaxCurv : Byte<br />

7496: Procedure GetPointParam( CurvIndex : Integer; var Symbol, Size : Integer; var Color : TColor)<br />

7497: Procedure GetLineParam(CurvIndex:Integer;var Style:TPenStyle;var Width:Integer; var Color:TColor);<br />

7498: Function GetCurvLegend( CurvIndex : Integer) : String<br />

7499: Function GetCurvStep( CurvIndex : Integer) : Integer<br />

7500: Procedure PlotPoint( Canvas : TCanvas; X, Y : Float; CurvIndex : Integer)<br />

7501: Procedure PlotCurve( Canvas : TCanvas; X, Y : TVector; Lb, Ub, CurvIndex : Integer)<br />

7502: Procedure PlotCurveWithErrorBars(Canvas : TCanvas; X,Y,S: TVector; Ns,Lb,Ub,CurvIndex:Integer)<br />

7503: Procedure PlotFunc(Canvas: TCanvas; Func: TFunc; Xmin,Xmax: Float; Npt,CurvIndex: Integer)<br />

7504: Procedure WriteLegend( Canvas : TCanvas; NCurv : Integer; ShowPoints, ShowLines : Boolean)<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: 87

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!