📄 systools_tlb.pas
字号:
function AstJulianDatePrim(Year: Integer; Month: Integer; Day: Integer; UT: TDateTime): Double; safecall;
function AstJulianDateToStDate(AstJD: Double; Truncate: WordBool): TDateTime; safecall;
function BondDateDiff(Date1: TDateTime; Date2: TDateTime; DayBasis: TStBondDateType): TDateTime; safecall;
function CurrentDate: TDateTime; safecall;
function CurrentDateString(const Picture: WideString; Pack: WordBool): WideString; safecall;
function CurrentTime: TDateTime; safecall;
function CurrentTimeString(const Picture: WideString; Pack: WordBool): WideString; safecall;
procedure DateDiff(Date1: TDateTime; Date2: TDateTime; var Days: Integer; var Months: Integer;
var Years: Integer); safecall;
function DateStringHMStoAstJD(const Picture: WideString; const DS: WideString; Hours: Integer;
Minutes: Integer; Seconds: Integer; Epoch: Integer): Double; safecall;
function DateStringToDMY(const Picture: WideString; const S: WideString; var Day: Integer;
var Month: Integer; var Year: Integer; Epoch: Integer): WordBool; safecall;
function DateStringToStDate(const Picture: WideString; const S: WideString; Epoch: Integer): TDateTime; safecall;
procedure DateTimeDiff(DT1: TDateTime; DT2: TDateTime; var Days: Integer; var Seconds: Integer); safecall;
function DayOfWeek(Julian: TDateTime): TStDayType; safecall;
function DayOfWeekDMY(Day: Integer; Month: Integer; Year: Integer; Epoch: Integer): TStDayType; safecall;
function DayOfWeekToString(WeekDay: TStDayType): WideString; safecall;
function DaysInMonth(Month: Integer; Year: Integer; Epoch: Integer): Integer; safecall;
function DecTime(T: TDateTime; Hours: Byte; Minutes: Byte; Seconds: Byte): TDateTime; safecall;
function DMYtoStDate(Day: Integer; Month: Integer; Year: Integer; Epoch: Integer): TDateTime; safecall;
function DMYtoDateString(const Picture: WideString; Day: Integer; Month: Integer;
Year: Integer; Epoch: Integer; Pack: WordBool): WideString; safecall;
function HMStoStTime(Hours: Byte; Minutes: Byte; Seconds: Byte): TDateTime; safecall;
function IncDate(Julian: TDateTime; Days: Integer; Months: Integer; Years: Integer): TDateTime; safecall;
procedure IncDateTime(DT1: TDateTime; var DT2: TDateTime; Days: Integer; Seconds: Integer); safecall;
function IncDateTrunc(Julian: TDateTime; Months: Integer; Years: Integer): TDateTime; safecall;
function IncTime(T: TDateTime; Hours: Byte; Minutes: Byte; Seconds: Byte): TDateTime; safecall;
function InternationalDate(ForceCentury: WordBool): WideString; safecall;
function InternationalLongDate(ShortNames: WordBool; ExcludeDOW: WordBool): WideString; safecall;
function InternationalTime(ShowSeconds: WordBool): WideString; safecall;
function IsLeapYear(Year: Integer): WordBool; safecall;
function MonthToString(Month: Integer): WideString; safecall;
function RoundToNearestHour(T: TDateTime; Truncate: WordBool): TDateTime; safecall;
function RoundToNearestMinute(T: TDateTime; Truncate: WordBool): TDateTime; safecall;
function StDateToDateString(const Picture: WideString; Julian: TDateTime; Pack: WordBool): WideString; safecall;
procedure StDateToDMY(Julian: TDateTime; var Day: Integer; var Month: Integer; var Year: Integer); safecall;
function StTimeToAmPmString(const Picture: WideString; T: TDateTime; Pack: WordBool): WideString; safecall;
procedure StTimeToHMS(T: TDateTime; var Hours: Byte; var Minutes: Byte; var Seconds: Byte); safecall;
function StTimeToTimeString(const Picture: WideString; T: TDateTime; Pack: WordBool): WideString; safecall;
procedure TimeDiff(T1: TDateTime; T2: TDateTime; var Hours: Byte; var Minutes: Byte;
var Seconds: Byte); safecall;
function TimeStringToHMS(const Picture: WideString; const TS: WideString; var Hours: Integer;
var Minutes: Integer; var Seconds: Integer): WordBool; safecall;
function TimeStringToStTime(const Picture: WideString; const S: WideString): TDateTime; safecall;
function ValidDate(Day: Integer; Month: Integer; Year: Integer; Epoch: Integer): WordBool; safecall;
function ValidTime(Hours: Integer; Minutes: Integer; Seconds: Integer): WordBool; safecall;
function WeekOfYear(Julian: TDateTime): Byte; safecall;
function License(const Key: WideString): WordBool; safecall;
end;
// *********************************************************************//
// DispIntf: IStDateDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {06A34C32-CF9D-40DA-B943-B7D5D178AE4D}
// *********************************************************************//
IStDateDisp = dispinterface
['{06A34C32-CF9D-40DA-B943-B7D5D178AE4D}']
function AstJulianDate(Julian: TDateTime): Double; dispid 1;
function AstJulianDatePrim(Year: Integer; Month: Integer; Day: Integer; UT: TDateTime): Double; dispid 2;
function AstJulianDateToStDate(AstJD: Double; Truncate: WordBool): TDateTime; dispid 3;
function BondDateDiff(Date1: TDateTime; Date2: TDateTime; DayBasis: TStBondDateType): TDateTime; dispid 4;
function CurrentDate: TDateTime; dispid 5;
function CurrentDateString(const Picture: WideString; Pack: WordBool): WideString; dispid 6;
function CurrentTime: TDateTime; dispid 7;
function CurrentTimeString(const Picture: WideString; Pack: WordBool): WideString; dispid 8;
procedure DateDiff(Date1: TDateTime; Date2: TDateTime; var Days: Integer; var Months: Integer;
var Years: Integer); dispid 9;
function DateStringHMStoAstJD(const Picture: WideString; const DS: WideString; Hours: Integer;
Minutes: Integer; Seconds: Integer; Epoch: Integer): Double; dispid 10;
function DateStringToDMY(const Picture: WideString; const S: WideString; var Day: Integer;
var Month: Integer; var Year: Integer; Epoch: Integer): WordBool; dispid 11;
function DateStringToStDate(const Picture: WideString; const S: WideString; Epoch: Integer): TDateTime; dispid 12;
procedure DateTimeDiff(DT1: TDateTime; DT2: TDateTime; var Days: Integer; var Seconds: Integer); dispid 13;
function DayOfWeek(Julian: TDateTime): TStDayType; dispid 14;
function DayOfWeekDMY(Day: Integer; Month: Integer; Year: Integer; Epoch: Integer): TStDayType; dispid 15;
function DayOfWeekToString(WeekDay: TStDayType): WideString; dispid 16;
function DaysInMonth(Month: Integer; Year: Integer; Epoch: Integer): Integer; dispid 17;
function DecTime(T: TDateTime; Hours: Byte; Minutes: Byte; Seconds: Byte): TDateTime; dispid 18;
function DMYtoStDate(Day: Integer; Month: Integer; Year: Integer; Epoch: Integer): TDateTime; dispid 19;
function DMYtoDateString(const Picture: WideString; Day: Integer; Month: Integer;
Year: Integer; Epoch: Integer; Pack: WordBool): WideString; dispid 20;
function HMStoStTime(Hours: Byte; Minutes: Byte; Seconds: Byte): TDateTime; dispid 21;
function IncDate(Julian: TDateTime; Days: Integer; Months: Integer; Years: Integer): TDateTime; dispid 22;
procedure IncDateTime(DT1: TDateTime; var DT2: TDateTime; Days: Integer; Seconds: Integer); dispid 23;
function IncDateTrunc(Julian: TDateTime; Months: Integer; Years: Integer): TDateTime; dispid 24;
function IncTime(T: TDateTime; Hours: Byte; Minutes: Byte; Seconds: Byte): TDateTime; dispid 25;
function InternationalDate(ForceCentury: WordBool): WideString; dispid 26;
function InternationalLongDate(ShortNames: WordBool; ExcludeDOW: WordBool): WideString; dispid 27;
function InternationalTime(ShowSeconds: WordBool): WideString; dispid 28;
function IsLeapYear(Year: Integer): WordBool; dispid 29;
function MonthToString(Month: Integer): WideString; dispid 30;
function RoundToNearestHour(T: TDateTime; Truncate: WordBool): TDateTime; dispid 31;
function RoundToNearestMinute(T: TDateTime; Truncate: WordBool): TDateTime; dispid 32;
function StDateToDateString(const Picture: WideString; Julian: TDateTime; Pack: WordBool): WideString; dispid 33;
procedure StDateToDMY(Julian: TDateTime; var Day: Integer; var Month: Integer; var Year: Integer); dispid 34;
function StTimeToAmPmString(const Picture: WideString; T: TDateTime; Pack: WordBool): WideString; dispid 35;
procedure StTimeToHMS(T: TDateTime; var Hours: Byte; var Minutes: Byte; var Seconds: Byte); dispid 36;
function StTimeToTimeString(const Picture: WideString; T: TDateTime; Pack: WordBool): WideString; dispid 37;
procedure TimeDiff(T1: TDateTime; T2: TDateTime; var Hours: Byte; var Minutes: Byte;
var Seconds: Byte); dispid 38;
function TimeStringToHMS(const Picture: WideString; const TS: WideString; var Hours: Integer;
var Minutes: Integer; var Seconds: Integer): WordBool; dispid 39;
function TimeStringToStTime(const Picture: WideString; const S: WideString): TDateTime; dispid 40;
function ValidDate(Day: Integer; Month: Integer; Year: Integer; Epoch: Integer): WordBool; dispid 41;
function ValidTime(Hours: Integer; Minutes: Integer; Seconds: Integer): WordBool; dispid 42;
function WeekOfYear(Julian: TDateTime): Byte; dispid 43;
function License(const Key: WideString): WordBool; dispid 200;
end;
// *********************************************************************//
// Interface: IStString
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B622F701-6E3F-4875-A574-201F0DB002F3}
// *********************************************************************//
IStString = interface(IDispatch)
['{B622F701-6E3F-4875-A574-201F0DB002F3}']
function AddBackSlash(const DirName: WideString): WideString; safecall;
function AsciiCount(const S: WideString; const WordDelims: WideString; const Quote: WideString): Integer; safecall;
function AsciiPosition(N: Integer; const S: WideString; const WordDelims: WideString;
const Quote: WideString; var Pos: Integer): WordBool; safecall;
function BinaryB(B: Byte): WideString; safecall;
function BinaryW(W: Integer): WideString; safecall;
function BinaryL(L: Integer): WideString; safecall;
function Center(const S: WideString; Len: Integer): WideString; safecall;
function CenterCh(const S: WideString; const C: WideString; Len: Integer): WideString; safecall;
function CharCount(const S: WideString; const C: WideString): Integer; safecall;
function CharExists(const S: WideString; const C: WideString): WordBool; safecall;
function CharStr(const C: WideString; Len: Integer): WideString; safecall;
function CleanPathName(const PathName: WideString): WideString; safecall;
function Commaize(L: Integer): WideString; safecall;
function CommaizeCh(L: Integer; const Ch: WideString): WideString; safecall;
function CompString(const S1: WideString; const S2: WideString): Integer; safecall;
function CompUCString(const S1: WideString; const S2: WideString): Integer; safecall;
function ContainsOnly(const S: WideString; const Chars: WideString; var BadPos: Integer): WordBool; safecall;
function ContainsOtherThan(const S: WideString; const Chars: WideString; var BadPos: Integer): WordBool; safecall;
function CopyFromNthWord(const S: WideString; const WordDelims: WideString;
const AWord: WideString; N: Integer; var SubString: WideString): WordBool; safecall;
function CopyFromToWord(const S: WideString; const WordDelims: WideString;
const Word1: WideString; const Word2: WideString; N1: Integer;
N2: Integer; var SubString: WideString): WordBool; safecall;
function CopyLeft(const S: WideString; Len: Integer): WideString; safecall;
function CopyMid(const S: WideString; First: Integer; Len: Integer): WideString; safecall;
function CopyRight(const S: WideString; First: Integer): WideString; safecall;
function CopyWithin(const S: WideString; const Delimiter: WideString; Strip: WordBool): WideString; safecall;
function DefaultExtension(const Name: WideString; const Ext: WideString): WideString; safecall;
function DeleteFromNthWord(const S: WideString; const WordDelims: WideString;
const AWord: WideString; N: Integer; var SubString: WideString): WordBool; safecall;
function DeleteFromToWord(const S: WideString; const WordDelims: WideString;
const Word1: WideString; const Word2: WideString; N1: Integer;
N2: Integer; var SubString: WideString): WordBool; safecall;
function DeleteWithin(const S: WideString; const Delimeter: WideString): WideString; safecall;
function Detab(const S: WideString; TabSize: Byte): WideString; safecall;
function Entab(const S: WideString; TabSize: Byte): WideString; safecall;
function Ext2Str(R: OleVariant; Width: Byte; Places: Byte): WideString; safecall;
function ExtractAscii(N: Integer; const S: WideString; const WordDelims: WideString;
const Quote: WideString): WideString; safecall;
function ExtractTokens(const S: WideString; const Delims: WideString;
const QuoteChar: WideString; AllowNulls: WordBool;
out Tokens: IStStringList): Integer; safecall;
function ExtractWord(N: Integer; const S: WideString; const WordDelims: WideString): WideString; safecall;
function Filter(const S: WideString; const Filters: WideString): WideString; safecall;
function FloatForm(const Mask: WideString; R: Double; L: Integer; const LtCurr: WideString;
const RtCurr: WideString; const Sep: WideString; const DecPt: WideString): WideString; safecall;
function ForceExtension(const Name: WideString; const Ext: WideString): WideString; safecall;
function HasExtension(const Name: WideString; var DotPos: Integer): WordBool; safecall;
function HexB(B: Byte): WideString; safecall;
function HexW(W: Integer): WideString; safecall;
function HexL(L: Integer): WideString; safecall;
function IsChAlpha(const C: WideString): WordBool; safecall;
function IsChAlphaNumeric(const C: WideString; const Numbers: WideString): WordBool; safecall;
function IsChNumeric(const C: WideString; const Numbers: WideString): WordBool; safecall;
function IsStrAlpha(const S: WideString): WordBool; safecall;
function IsStrAlphaNumeric(const S: WideString; const Numbers: WideString): WordBool; safecall;
function IsStrNumeric(const S: WideString; const Numbers: WideString): WordBool; safecall;
function JustExtension(const Name: WideString): WideString; safecall;
function JustFilename(const PathName: WideString): WideString; safecall;
function JustName(const PathName: WideString): WideString; safecall;
function JustPathname(const PathName: WideString): WideString; safecall;
function KeepChars(const S: WideString; const Chars: WideString): WideString; safecall;
function LastString(const S: WideString; const AString: WideString; var Position: Integer): WordBool; safecall;
function LastWord(const S: WideString; const WordDelims: WideString; const AWord: WideString;
var Position: Integer): WordBool; safecall;
function LastWordAbs(const S: WideString; const WordDelims: WideString; var Position: Integer): WordBool; safecall;
function LeftPad(const S: WideString; Len: Integer): WideString; safecall;
function LeftPadCh(const S: WideString; const C: WideString; Len: Integer): WideString; safecall;
function LeftTrimChars(const S: WideString; const Chars: WideString): WideString; safecall;
function Long2Str(L: Integer): WideString; safecall;
function LongIntForm(const Mask: WideString; L: Integer; const LtCurr: WideString;
const RtCurr: WideString; const Sep: WideString): WideString; safecall;
function OctalB(B: Byte): WideString; safecall;
function OctalW(W: Integer): WideString; safecall;
function OctalL(L: Integer): WideString; safecall;
function Pad(const S: WideString; Len: Integer): WideString; safecall;
function PadCh(const S: WideString; const C: WideString; Len: Integer): WideString; safecall;
function Real2Str(R: Double; Width: Byte; Places: Byte): WideString; safecall;
function RepeatString(const S: WideString; var Repetitions: Integer; MaxLen: Integer): WideString; safecall;
function ReplaceWord(const S: WideString; const WordDelims: WideString;
const OldWord: WideString; const NewWord: WideString; N: Integer;
var Replacements: Integer): WideString; safecall;
function ReplaceWordAll(const S: WideString; const WordDelims: WideString;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -