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
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 />
3668: Procedure BdeFlushBuffers<br />
3669: Function GetNativeHandle( Database : TDatabase; Buffer : Pointer; BufSize : Integer) : Pointer<br />
3670: Procedure ToggleDebugLayer( Active : Boolean; const DebugFile : string)<br />
3671: Procedure DbNotSupported<br />
3672: Procedure ExportDataSet( Source : TBDEDataSet; DestTable : TTable; TableType : TTableType; const<br />
AsciiCharSet : string; AsciiDelimited : Boolean; MaxRecordCount : Longint)<br />
3673: Procedure ExportDataSetEx( Source : TBDEDataSet; DestTable : TTable; TableType : TTableType; const<br />
AsciiCharSet:string;AsciiDelimited:Boolean;AsciiDelimiter,AsciiSeparator:Char;MaxRecordCount:Longint);<br />
3674: Procedure<br />
ImportDataSet(Source:TBDEDataSet;DestTable:TTable;MaxRecordCount:Longint;Mappings:TStrings;Mode:TBatchMode);<br />
3675: Procedure InitRSRUN(Database: TDatabase;const ConName:string; ConType:Integer;const ConServer:string);<br />
3676: **********************************************uPSI_JvDateUtil;<br />
3677: function CurrentYear: Word;<br />
3678: function IsLeapYear(AYear: Integer): Boolean;<br />
3679: function DaysPerMonth(AYear, <strong>AM</strong>onth: Integer): Integer;<br />
3680: function FirstDayOfPrevMonth: TDateTime;<br />
3681: function LastDayOfPrevMonth: TDateTime;<br />
3682: function FirstDayOfNextMonth: TDateTime;<br />
3683: function ExtractDay(ADate: TDateTime): Word;<br />
3684: function ExtractMonth(ADate: TDateTime): Word;<br />
3685: function ExtractYear(ADate: TDateTime): Word;<br />
3686: function IncDate(ADate: TDateTime; Days, Months, Years: Integer): TDateTime;<br />
3687: function IncDay(ADate: TDateTime; Delta: Integer): TDateTime;<br />
3688: function IncMonth(ADate: TDateTime; Delta: Integer): TDateTime;<br />
3689: function IncYear(ADate: TDateTime; Delta: Integer): TDateTime;<br />
3690: function ValidDate(ADate: TDateTime): Boolean;<br />
3691: procedure DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: Word);<br />
3692: function MonthsBetween(Date1, Date2: TDateTime): Double;<br />
3693: function DaysInPeriod(Date1, Date2: TDateTime): Longint;<br />
3694: { Count days between Date1 and Date2 + 1, so if Date1 = Date2 result = 1 }<br />
3695: function DaysBetween(Date1, Date2: TDateTime): Longint;<br />
3696: { The same as previous but if Date2 < Date1 result = 0 }<br />
3697: function IncTime(ATime: TDateTime; Hours, Minutes, Seconds, MSecs: Integer): TDateTime;<br />
3698: function IncHour(ATime: TDateTime; Delta: Integer): TDateTime;<br />
3699: function IncMinute(ATime: TDateTime; Delta: Integer): TDateTime;<br />
<strong>37</strong>00: function IncSecond(ATime: TDateTime; Delta: Integer): TDateTime;<br />
<strong>37</strong>01: function IncMSec(ATime: TDateTime; Delta: Integer): TDateTime;<br />
<strong>37</strong>02: function CutTime(ADate: TDateTime): TDateTime; { Set time to 00:00:00:00 }<br />
<strong>37</strong>03: { String to date conversions }<br />
<strong>37</strong>04: function GetDateOrder(const DateFormat: string): TDateOrder;<br />
<strong>37</strong><strong>05</strong>: function MonthFromName(const S: string; MaxLen: Byte): Byte;<br />
<strong>37</strong>06: function StrToDateDef(const S: string; Default: TDateTime): TDateTime;<br />
<strong>37</strong>07: function StrToDateFmt(const DateFormat, S: string): TDateTime;<br />
<strong>37</strong><strong>08</strong>: function StrToDateFmtDef(const DateFormat, S: string; Default: TDateTime): TDateTime;<br />
<strong>37</strong>09: function DefDateFormat(FourDigitYear: Boolean): string;<br />
<strong>37</strong>10: function DefDateMask(BlanksChar: Char; FourDigitYear: Boolean): string;<br />
<strong>37</strong>11: ------------------------------------------------------------------------------<br />
<strong>37</strong>12: ********************************** JvUtils;*******************************<br />
<strong>37</strong>13: { GetWordOnPos returns Word from string, S, on the cursor position, P}<br />
<strong>37</strong><strong>14</strong>: function GetWordOnPos(const S: string; const P: Integer): string;<br />
<strong>37</strong>15: { GetWordOnPosEx work like GetWordOnPos function, also returns Word position in iBeg, iEnd variables }<br />
<strong>37</strong>16: function GetWordOnPosEx(const S: string; const P: Integer; var iBeg, iEnd: Integer): string;<br />
<strong>37</strong><strong>17</strong>: { SubStr returns substring from string, S, separated with Separator string}<br />
<strong>37</strong>18: function SubStr(const S: string; const Index: Integer; const Separator: string): string;<br />
<strong>37</strong>19: { SubStrEnd same to previous function but Index numerated from the end of string }<br />
<strong>37</strong>20: function SubStrEnd(const S: string; const Index: Integer; const Separator: string): string;<br />
<strong>37</strong>21: { SubWord returns next Word from string, P, and offsets Pointer to the end of Word, P2 }<br />
<strong>37</strong>22: function SubWord(P: PChar; var P2: PChar): string;<br />
<strong>37</strong>23: { NumberByWord returns the text representation of<br />
<strong>37</strong>24: the number, N, in normal russian language. Was typed from Monitor magazine }<br />
<strong>37</strong>25: function NumberByWord(const N: Longint): string;<br />
<strong>37</strong>26: // function CurrencyByWord(Value : Currency) : string; GetLineByPos returns Line number, there<br />
<strong>37</strong>27: //the symbol Pos is pointed. Lines separated with #13 symbol }<br />
<strong>37</strong>28: function GetLineByPos(const S: string; const Pos: Integer): Integer;<br />
<strong>37</strong>29: { GetXYByPos is same to previous function, but returns X position in line too}<br />
<strong>37</strong>30: procedure GetXYByPos(const S: string; const Pos: Integer; var X, Y: Integer);<br />
<strong>37</strong>31: { ReplaceString searches for all substrings, OldPattern,in a string, S, replaces them with NewPattern }<br />
<strong>37</strong>32: function ReplaceString(S: string; const OldPattern, NewPattern: string): string;<br />
<strong>37</strong>33: { ConcatSep concatenate S and S2 strings with Separator. if S = '', separator don't included }<br />
<strong>37</strong>34: function ConcatSep(const S, S2, Separator: string): string;<br />
<strong>37</strong>35: { ConcatLeftSep is same to previous function, but strings concatenate right to left }<br />
<strong>37</strong>36: function ConcatLeftSep(const S, S2, Separator: string): string;<br />
<strong>37</strong><strong>37</strong>: { MinimizeString truncs long string, S, and appends '...' symbols, if Length of S is more than MaxLen }<br />
<strong>37</strong>38: function MinimizeString(const S: string; const MaxLen: Integer): string;<br />
<strong>37</strong>39: { Next 4 function for russian chars transliterating.<br />
<strong>37</strong>40: This functions are needed because Oem2Ansi and Ansi2Oem functions sometimes works sucks }<br />
<strong>37</strong>41: procedure Dos2Win(var S: string);<br />
<strong>37</strong>42: procedure Win2Dos(var S: string);<br />
<strong>37</strong>43: function Dos2WinRes(const S: string): string;<br />
<strong>37</strong>44: function Win2DosRes(const S: string): string;<br />
<strong>37</strong>45: function Win2Koi(const S: string): string;<br />
<strong>37</strong>46: { Spaces returns string consists on N space chars }<br />
<strong>37</strong>47: function Spaces(const N: Integer): string;<br />
<strong>37</strong>48: { AddSpaces add spaces to string, S, if it Length is smaller than N }<br />
<strong>37</strong>49: function AddSpaces(const S: string; const N: Integer): string;<br />
<strong>37</strong>50: { function LastDate for russian users only } { returns date relative to current date: '' }<br />
<strong>37</strong>51: function LastDate(const Dat: TDateTime): string;<br />
<strong>37</strong>52: { CurrencyToStr format currency, Cur, using ffCurrency float format}<br />
<strong>37</strong>53: function CurrencyToStr(const Cur: currency): string;<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: 43
Change language