13. Утилиты¶

Interpret(AParam_1: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует

SetOf(AParam_1: Variant): Set¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Set

Assigned(X: Variant): Variant¶

Метод проверяет указатель или переменную на nil, если значение не присвоено, тогда возращает False, в противном случае True. Также работает со значениями типа Variant - varUnknown и varDispatch (IDispatch - представление OLE-объектов в скриптере)

Parameters:	X (Variant) -- Описание отсутствует
Return type:	Variant

13.1. TatSysUtilsLibrary¶

class TatSysUtilsLibrary¶: Системные утилиты

13.1.1. Файловая система¶

GetFolderPath(FolderConst: Integer): String¶

Описание отсутствует

Parameters:

FolderConst (Integer) --

Метод позволяет получить полный путь к системным папкам. В качестве FolderConst можно передать следующие константы:

CSIDL_PERSONAL
CSIDL_APPDATA
CSIDL_LOCAL_APPDATA
CSIDL_INTERNET_CACHE
CSIDL_COOKIES
CSIDL_HISTORY
CSIDL_COMMON_APPDATA
CSIDL_WINDOWS
CSIDL_SYSTEM
CSIDL_PROGRAM_FILES
CSIDL_MYPICTURES
CSIDL_PROGRAM_FILES_COMMON
CSIDL_COMMON_DOCUMENTS
CSIDL_FLAG_CREATE
CSIDL_COMMON_ADMINTOOLS
CSIDL_ADMINTOOLS

Значение констант можно посмотреть в MSDN а также можно получить путь к специфической системной директории используя целочисленные значения констант описанных в MSDN.

Return type: String

ExtractFileExt(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ChangeFileExt(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

ExtractShortPathName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FileIsReadOnly(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

RemoveDir(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FindNext(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

FileAge(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

FileOpen(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

ExtractFilePath(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

RenameFile(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

DeleteFile(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FileSetReadOnly(AFileName: String; AReadOnly: Boolean): Variant¶

Описание отсутствует

Parameters:	AFileName (String) -- Полное имя файла. AReadOnly (Boolean) -- Значение свойства ReadOnly. True включено False выключено
Return type:	Variant

FileSetAttr(AFileName: String; AAttr: Integer): Integer¶

Позволяет задать файлу AFileName атрибуты AAttr.

Parameters:

AFileName (String) -- Имя файла.
AAttr (Integer) --

faReadOnly

Только чтение. Текущий пользователь не имеет прав на запись

faHidden

Скрытый файл, начинается с "."

faSysFile

Системный файл, ссылка, файл устройства, файл сокет

faVolumeID

не испольузется

faDirectory

Каталог

faArchive

Архив

faSymLink

Символьная ссылка

faAnyFile

Прочий файл

Return type:

Integer

FileGetAttr(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

FileGetDate(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

FindClose(AParam_1: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует

FindFirst(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

ForceDirectories(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

DirectoryExists(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FileExists(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FileClose(AParam_1: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует

FileWrite(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

FileRead(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

GetFileVersion(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

CreateDir(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

SetCurrentDir(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

GetCurrentDir(): Variant¶

Описание отсутствует

Return type:	Variant

DiskSize(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

DiskFree(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FileSearch(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

ExtractRelativePath(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

ExpandUNCFileName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ExpandFileNameCase(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

ExpandFileName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ExtractFileName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ExtractFileDrive(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ExtractFileDir(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

13.1.2. Строки¶

StrByteType(AParam_1, AParam_2: Variant): Enumeration¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Enumeration

GetLocaleStr(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

StrToBool(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrToIntDef(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiExtractQuotedStr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

WideCompareText(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

WideLowerCase(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrLower(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrComp(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

LoadStr(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

BoolToStr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

TryStrToBool(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrToBoolDef(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

TryStrToInt64(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrToInt64Def(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrToInt64(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

TryStrToInt(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrToInt(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

AdjustLineBreaks(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiDequotedStr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiQuotedStr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

QuotedStr(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

WideSameText(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

WideSameStr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

WideCompareStr(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

WideUpperCase(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrLastChar(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiLastChar(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrUpper(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrLIComp(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiStrLComp(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiStrIComp(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiSameText(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiCompareText(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiSameStr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiCompareStr(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiLowerCase(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiUpperCase(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

SameText(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

CompareText(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

CompareStr(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

LowerCase(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

UpperCase(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AppendStr(AParam_1, AParam_2: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует

GUIDToString(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StringToGUID(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StringReplace(SourceString, OldPattern, NewPattern: String; Flags: TReplaceFlags): Variant¶

Описание отсутствует

Parameters:	SourceString (String) -- Описание отсутствует OldPattern (String) -- Описание отсутствует NewPattern (String) -- Описание отсутствует Flags (TReplaceFlags) -- Описание отсутствует
Return type:	Variant

AnsiStrScan(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrRScan(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiStrPos(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiPos(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

AnsiUpperCaseFileName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiLowerCaseFileName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

SameFileName(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

AnsiCompareFileName(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

LastDelimiter(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

ExcludeTrailingBackslash(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ExcludeTrailingPathDelimiter(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

IncludeTrailingBackslash(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

IncludeTrailingPathDelimiter(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

IsDelimiter(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

IsPathDelimiter(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

NextCharIndex(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

CharLength(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

StrNextChar(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrCharLength(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

CharToByteIndex(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

ByteToCharIndex(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

CharToByteLen(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

ByteToCharLen(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

GetLocaleFormatSettings(AParam_1, AParam_2: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует

GetFormatSettings()¶: Описание отсутствует

GetLocaleChar(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

StrDispose(AParam_1: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует

StrNew(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrBufSize(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

StrAlloc(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrPas(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrLower(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrUpper(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrPos(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrRScan(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrScan(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrLIComp(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

StrLComp(AParam_1, AParam_2, AParam_3: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Integer

StrIComp(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

StrComp(AParam_1, AParam_2: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Integer

StrLCat(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

StrCat(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrPLCopy(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

StrPCopy(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrLCopy(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

StrECopy(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrCopy(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

StrMove(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

StrEnd(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

StrLen(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

13.1.3. Дата и время¶

TryFloatToDateTime(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

FloatToDateTime(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

IsLeapYear(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

ReplaceDate(AParam_1, AParam_2: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует

ReplaceTime(AParam_1, AParam_2: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует

IncAMonth(AParam_1, AParam_2, AParam_3, AParam_4: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует

IncMonth(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

CurrentYear(): Integer¶

Описание отсутствует

Return type:	Integer

Now(): Variant¶

Описание отсутствует

Return type:	Variant

GetTime(): Variant¶

Описание отсутствует

Return type:	Variant

Time(): Variant¶

Описание отсутствует

Return type:	Variant

Date(): Variant¶

Описание отсутствует

Return type:	Variant

DayOfWeek(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

SystemTimeToDateTime(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

DateTimeToSystemTime(AParam_1, AParam_2: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует

DecodeTime(AParam_1, AParam_2, AParam_3, AParam_4, AParam_5: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует AParam_5 (Variant) -- Описание отсутствует

DecodeDateFully(AParam_1, AParam_2, AParam_3, AParam_4, AParam_5: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует AParam_5 (Variant) -- Описание отсутствует
Return type:	Variant

DecodeDate(AParam_1, AParam_2, AParam_3, AParam_4: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует

TryEncodeTime(AParam_1, AParam_2, AParam_3, AParam_4, AParam_5: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует AParam_5 (Variant) -- Описание отсутствует
Return type:	Variant

TryEncodeDate(AParam_1, AParam_2, AParam_3, AParam_4: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует
Return type:	Variant

EncodeTime(AParam_1, AParam_2, AParam_3, AParam_4: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует
Return type:	Variant

EncodeDate(AParam_1, AParam_2, AParam_3: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует
Return type:	Variant

TimeStampToMSecs(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

MSecsToTimeStamp(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

TimeStampToDateTime(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

DateTimeToTimeStamp(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

DateTimeToFileDate(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

FileDateToDateTime(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

13.1.4. Системные¶

Sleep(AParam_1: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует

IsValidIdent(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

Languages()¶: Описание отсутствует

CheckWin32Version(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

IsEqualGUID(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

CreateGUID(AParam_1: Variant): Integer¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Integer

FreeAndNil(AParam_1: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует

ByteType(AParam_1, AParam_2: Variant): Enumeration¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Enumeration

Beep()¶: Описание отсутствует

Abort()¶: Описание отсутствует

GetModuleName(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

SysErrorMessage(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

FloatToDecimal(AParam_1, AParam_2, AParam_3, AParam_4, AParam_5: Variant)¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует AParam_3 (Variant) -- Описание отсутствует AParam_4 (Variant) -- Описание отсутствует AParam_5 (Variant) -- Описание отсутствует

TryFloatToCurr(AParam_1, AParam_2: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует AParam_2 (Variant) -- Описание отсутствует
Return type:	Variant

FloatToCurr(AParam_1: Variant): Variant¶

Описание отсутствует

Parameters:	AParam_1 (Variant) -- Описание отсутствует
Return type:	Variant

13.1.5. TReplaceFlags¶

class TReplaceFlags¶

Перечисление

rfIgnoreCase¶

rfReplaceAll¶

13.2. TbtkScriptSystemObject¶

class TbtkScriptSystemObject¶

Класс имплементирует методы работы с системными функциями Windows.

SetForegroundWindow(AHandle: Integer): Boolean¶

Метод выносит окно наверх по идентификатору окна. Функция возвращает true в случае успешного выполнения операции.

Parameters:	AHandle (Integer) -- Идентификатор окна.
Return type:	Boolean

FindWindow(AClassName, AWindowCaption: String): Integer¶

Метод возвращает идентификатор окна в системе.

Parameters:	AClassName (String) -- Имя класса окна. Имя класса можно узнать с попощью различных программ, например WinID, WManager. AWindowCaption (String) -- Заголовок окна.
Return type:	Integer

13.3. TatWindowsLibrary¶

class TatWindowsLibrary¶

Функции Windows

FreeLibrary(Ahandle: Integer)¶

Метод выгружает библиотеку по хендлу.

Parameters:	Ahandle (Integer) -- Хендл загруженной библиотеки полученный через метод `LoadLibrary`.

Пример использования¶

<pascal>
  { declaration of external functions }
  function CreateCustomForm(caption: AnsiString; color: integer): TObject; stdcall; external 'CustomLib.dll';
  procedure ShowForm(form: TObject); external 'CustomLib.dll';
  procedure GetBounds(form: TObject; var l, t, w, h: integer); cdecl; external 'CustomLib.dll' name 'FormGetBounds';
  function DecodeToday(var year, month, day: integer): boolean; stdcall; external 'CustomLib.dll';
  function tsr(x, y: double): double; external 'CustomLib.dll' name 'TimesSquareRoot';

  const
    clRed = $0000FF;

  begin
    { explicit dynamic load of the library }
    dll := LoadLibrary('CustomLib');
    try
      ShowMessage(Format('CustomLib.dll loaded: handle = %d', [dll]));
      frm := CreateCustomForm('My form', clRed);
      try
        ShowForm(frm);
        l := 0; t := 0;
        w := 0; h := 0;
        GetBounds(frm, l, t, w, h);
        ShowMessage(Format('Form bounds: left=%d, top=%d, width=%d, height=%d', [l, t, w, h]));
      finally
        frm.Free;
      end;
    finally
      FreeLibrary(dll); { unload }
      ShowMessage(Format('DLL %d unloaded', [dll]));
    end;

    { automatic load of the library on demand }
    y := 0; m := 0; d := 0;
    leap := DecodeToday(y, m, d);
    ShowMessage(Format('Today: day=%d, month=%d, year=%d', [d, m, y]));
    if leap then
      ShowMessage(Format('%d is leap', [y]))
    else
      ShowMessage(Format('%d is not leap', [y]));

    ShowMessage('Square root of ' + IntToStr(m * d) + ' is ' + FloatToStr(tsr(m, d)));
  end;
</pascal>

LoadLibrary(LibraryName: String): Integer¶

Метод загружает библиотеку dll и возвращает Handle на нее. Если загрузить не удалось будет сгенерено исключение.

Parameters:	LibraryName (String) -- Системное имя библиотеки.
Return type:	Integer

Пример использования¶

<pascal>
  { declaration of external functions }
  function CreateCustomForm(caption: AnsiString; color: integer): TObject; stdcall; external 'CustomLib.dll';
  procedure ShowForm(form: TObject); external 'CustomLib.dll';
  procedure GetBounds(form: TObject; var l, t, w, h: integer); cdecl; external 'CustomLib.dll' name 'FormGetBounds';
  function DecodeToday(var year, month, day: integer): boolean; stdcall; external 'CustomLib.dll';
  function tsr(x, y: double): double; external 'CustomLib.dll' name 'TimesSquareRoot';

  const
    clRed = $0000FF;

  begin
    { explicit dynamic load of the library }
    dll := LoadLibrary('CustomLib');
    try
      ShowMessage(Format('CustomLib.dll loaded: handle = %d', [dll]));
      frm := CreateCustomForm('My form', clRed);
      try
        ShowForm(frm);
        l := 0; t := 0;
        w := 0; h := 0;
        GetBounds(frm, l, t, w, h);
        ShowMessage(Format('Form bounds: left=%d, top=%d, width=%d, height=%d', [l, t, w, h]));
      finally
        frm.Free;
      end;
    finally
      FreeLibrary(dll); { unload }
      ShowMessage(Format('DLL %d unloaded', [dll]));
    end;

    { automatic load of the library on demand }
    y := 0; m := 0; d := 0;
    leap := DecodeToday(y, m, d);
    ShowMessage(Format('Today: day=%d, month=%d, year=%d', [d, m, y]));
    if leap then
      ShowMessage(Format('%d is leap', [y]))
    else
      ShowMessage(Format('%d is not leap', [y]));

    ShowMessage('Square root of ' + IntToStr(m * d) + ' is ' + FloatToStr(tsr(m, d)));
  end;
</pascal>