Форум АНТИЧАТ - Встроенные функции и процедуры.

ПЕРЕМЕННЫЕ, ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ SYSTEM
Код:
function Abs(X) ; - Возвращает абсолютную величину выражения x (целого или вещественного типа)



function Addr(X): Pointer; Возвращает адрес переменной или подпрограммы х



var AllocMemCount: Integer; Возвращает полное количество блоков памяти, выделенных программе



var A11 о cMemS ize: Integer Возвращает полное количество памяти (в байтах), выделенное программе



procedure Append (var F: Text);



Открывает текстовый файл f для добавления новых строк



function ArcTan(X: Extended): Extended;

        



Возвращает Арктангенс (в радианах) x



procedure Assert (expr : Boolean [;const msg: Strings;

        



Проверяет условное выражение ехрг. Выдает сообщение msg и останавливает программу, если выражение имеет значение False, в противном случае ничего не делает



procedure AssignFile (var F; File Name: String) ;

        



Связывает файловую переменную F с файлом, указанным в FileName



function Assigned (var P) : Boolean;

        



False, если указатель р связан с nil (т. е. не указывает на область памяти)



procedure BlockRead(var F: File;



var Buf; Count: Integer [; var



AmtTransferred: Integer]);

        



Читает из файла, связанного с f, в буфер Buf не более count блоков и возвращает в AmtTransfered истинное количество прочитанных блоков



procedure BlockWrite (var f: File;



var Buf; Count: Integer [; var pa Buf не более Count блоков и возвращает AmtTransferred: Integer]);procedure Break;

        



Записывает в файл, связанный с F, в AmtTransfered истинное количество записанных блоковНемедленно прекращает выполнение циклов for, while или repeat



procedure ChDir(S: Strings;



 

        



Изменяет умалчиваемый каталог на каталог, заданный выражением s



function Chr(X: Byte): Char;

        



Преобразует байт х в символ



procedure Close(var F) ;

        



Закрывает файл F



procedure CloseFile(var F);

        



Закрывает файл f



var CmdLine: PChar;

        



Содержит параметры запуска программы



var CmdShow: Integer;



 

        



Содержит статус окна, открытого API-



функцией showwindow



function CompToCurrency(acomp:



Comp): Currency; cdecl;

        



Преобразует тип Comp к типу currency



 



 



function CompToDouble(acomp:



Comp): Double; cdecl;

        



Преобразует тип Comp к типу Double



 



 



function Concat(sl [, s2,..., sn]: String): String;

        



Объединяет строки Si в единую строку



procedure Continue;



 

        



Прекращает очередную итерацию цикла for, while или repeat



function Copy(S; Index, Count:



Integer): Stringy;



function Copy(S; Index, Count:



Integer): array;

        



Возвращает подстроку или сегмент динамического массива



 



 



 



 



function Cos(X: Extended): Ex



tended/

        



Возвращает косинус аргумента X, заданного



в радианах



procedure CurrencyToComp



(acurrency: Currency; var result:



Comp); cdecl;

        



Преобразует тип currency к типу Comp



 



 



 



 



var DLLProc: Pointer;



 



 

        



Указывает точку входа в DLL-процедуру,



которая выполняется в данный момент



procedure Dec(var X [ ; N: Long-



Int]);

        



Уменьшает х на n, а если n опущено - на 1. х, n - любые порядковые типы, в том числе Int64



var Default8087CW: Word; 



 



 



 

        



Содержит 0, если в ПК нет арифметического сопроцессора, в противном случае разряды слова указывают некоторые технические



параметры сопроцессора



procedure Delete(var S: String;



Index, Count: Integer);

        



Удаляет из строки s count символов начи



ная с символа с номером index



procedure Dispose(var P:



Pointer) ;

        



Освобождает память, связанную с указателем p



function DoubleToComp(adouble:



Double; var result: Comp); cdecl;

        



Преобразует тип Double к типу Comp



 



 



var EmptyParam: OleVariant;



 



 

        



Указывает, что умалчиваемый параметр



дуального интерфейса не используется



procedure EnumModules(Func:



TEnumModuleFunc; Data: Pointers-



overload;



procedure EnumModules(Func:



TEnumModuleFuncLW; Data: Pointer); overload;

        



Реализует обратный вызов (callback) для



всех модулей и всех пакетов программы



 



 



 



 



procedure EnumResourceModules(Func: TEnumModuleFunc; Data: Pointer);

        



Реализует обратный вызов (callback) для всех ресурсных модулей программы 



 



 procedure EnumResourceMod-



ules(Func: TEnumModuleFuncLW;



Data: Pointer) ;

        



 



 



 



 



 



function Eof(var F): Boolean;

        



Возвращает True, если достигнут конец файла f (любого типа)



function Eoln [(var F: Text) ]:



Boolean-

        



Возвращает True, если достигнут конец строки или конец текстового файла



procedure Erase(var F) ;

        



Уничтожает файл, связанный с переменной F



var ErrorAddr: Pointer;

        



Содержит адрес исполняемого оператора,



вызвавшего ошибку при прогоне программы



var ErrorProc: Pointer;

        



Содержит адрес входа в умалчиваемый обработчик ошибок



var ExceptProc: Pointed;



 

        



Содержит адрес входа в низкоуровневый



обработчик исключений



procedure Exclude(var S: set of



T;I:T) ;

        



Исключает элемент i из множества s



 



procedure Exit;

        



Завершает работу подпрограммы



var ExitCode: Integer;



 

        



Возвращает код завершения программы. В



современных разработках используйте для



этих целей секцию finalization



var ExitProc: Pointer;



 

        



Содержит адрес входа в процедуру завер



шения программы



function Exp(X: Real): Real;

        



Возвращает х°, где е - основание натурального логарифма



var FileMode: Byte;



 

        



Указывает режим файла, открытого процедурой Reset: 0 - только чтение; 1 - только запись; 2 - чтение и запись



function FilePos(var F): Longint;

        



Возвращает текущую позицию в файле F



function FileSize(var F): Integer;

        



Возвращает размер нетекстового файла



procedure FillChar(var X; Count:



Integer; Value: Byte);

        



Заполняет переменную х не более Count



байтами со значением value



procedure Finalize( var V [;



Count: Integer] ) ;

        



Освобождает динамически распределенную



память, связанную с F



function FindClassHIn-



stance(ClassType: TClass): Long Word;

        



Возвращает дескриптор модуля, в котором определен экземпляр класса ClassType



function FindHInstance( Address:



Pointer): LongWord;

        



Возвращает дескриптор модуля, в котором определен адрес Address



function FindResourceHInstance



(Instance: LongHord): LongWord;

        



Возвращает дескриптор ресурсного файла



для экземпляра instance



procedure Flush(var F: Text);

        



Записывает буфер файла на диск



function Frac(X: Extended): Ex



tended;

        



Возвращает дробную часть х



 



procedure FreeMem(var P:



Pointer[; Size: Integer]);

        



Освобождает динамически распределенную



память, связанную с P



procedure GetDir(D: Byte; var S: String) ;

        



Возвращает имя диска по его номеру



procedure GetMem(var P: Pointer;Size: Integer);

        



Связывает с указателем p size байт динамической памяти



procedure GetMemoryManager(var



MemMgr: TMemoryManager);

        



Возвращает точку входа в менеджер динамической памяти



procedure Halt [ ( Exitcode: Integer) ] ;

        



Прекращает выполнение программы с кодом завершения ExitCode



var HeapAllocFlags: Word = 2;

        



Указывает, какую память получает менеджер динамической памяти от операционной системы (по умолчанию - gmemmoveable)



function Hi(X): Byte;

        



Возвращает старший байт 16-разрядного числа



function High(X); 

        



Возвращает наивысшее значение диапазона порядкового типа, строки или открытого массива, к которому принадлежит х



function lOResult: Integer;



 

        



Возвращает статус последней операции



ввода-вывода



procedure Inc(var X [ ; N: LongInt ] );

        



Наращивает х на n, а если n отсутствует - на



единицу



procedure Include(var S: set ofT; I:T);

        



Включает элемент i в множество S



procedure Initialize(var V [ ;



Count: Integer ] );

        



Инициализирует динамически распределенную переменную v, если она была создана не процедурой New



var Input: Text;

        



Системный файл ввода



procedure Insert(Source: String;



var S: String; Index: Integers;

        



Вставляет подстроку source в строку s начиная с символа index



function Int(X: Extended): Ex



tended;

        



Возвращает целую часть вещественной переменной



var IsConsole: Boolean;

        



Содержит True, если выполняется приложение консольного типа



var IsLibrary: Boolean;

        



Содержит True, если выполняется подпрограмма из DLL



function IsMemoryManagerSet: Boolean;

        



Возвращает True, если менеджер динамической памяти был изменен процедурой Set-MemoryManager



var IsMultiThread: Boolean;

        



Содержит True, если в программе инициировано несколько потоков



var JITEnable: Byte;

        



Указывает тип обработки исключения, возникающего в процессе отладки



function Length (S): Integer;

        



Возвращает длину строки



function Ln(X: Real): Real;

        



Возвращает натуральный логарифм х



function Lo(X): Byte;

        



Возвращает младший байт аргумента



function Low(X);



 

        



Возвращает наименьшее значение диапазона порядкового типа, строки или открытого массива, к которому принадлежит х



var Mainlnstance: LongWord;

        



Содержит дескриптор экземпляра главного



модуля программы



var MainThreadID: LongWord;

        



Содержит дескриптор главного потока для



текущего модуля



const Maxint = High(Integer);

        



Содержит максимальное значение типа integer (2 147 483 647)



const MaxLongint = High(Longint);

        



Содержит максимальное значение типа



Longint(2 147 483 647)



procedure MkDir(S: String);

        



Создает новый каталог



procedure Move(const Source; var



Dest; Count: Integers;

        



Переносит не более count байт из источника Source в приемник Dest



procedure New(var P: Pointer);

        



Создает новую динамическую переменную



и связывает ее с p



var NoErrMsg: Boolean=False;



 

        



Указывает, будут ли ошибки периода исполнения программы сопровождаться сообщениями (False - будут)



var Null: Variant;

        



Используется для указания значения Null переменной вариантного типа



function Odd(X: Longint): Boolean;

        



Возвращает True, если аргумент - нечетное число



procedure OleStrToStrVar (Source:



PWideChar; var Dest: String);

        



Копирует “широкую” (двухбайтную) строку



в обычную строку Object Pascal



function Ord(X): Longint;

        



Возвращает порядковое значение перемен



ной порядкового типа (в том числе и Int64)



var Output: Text;

        



Файл системного вывода для консольных приложений



function ParamCount: Integer;

        



Возвращает количество параметров запуска программы



function ParamStr(Index: Integer) : String;

        



Возвращает параметр запуска под номером index (для index=0 - имя исполняемого файла)



function Pi: Extended;

        



Возвращает число it=3,141592653589793



function Po3(Substr: String; S:String): Integer;

        



Возвращает номер символа, начиная с которого в строке s располагается подстрока Substr



function Pred(X) ;

        



Возвращает предыдущее значение для выражения х порядкового типа



function Ptr(Address: Integer):



Pointer;

        



Преобразует Address в указатель



 



var RandSeed: Longint;

        



Определяет стартовое значение для генератора псевдослучайных последовательностей



function Random [ ( Range: Integer) ] ;

        



Возвращает очередное псевдослучайное число.



procedure Randomize;

        



Инициирует генератор псевдослучайных последовательностей.



procedure Read(var F / VI [/ V2,...,Vn ] );

        



Читает из файла f заданное количество значений и помещает их в переменные vi



procedure Readin([ var F: Text; ]



VI [, V2, . . ., Vn ] ) ;

        



Читает из файла f заданное количество строк и помещает их в переменные vi



procedure ReallocMem(var P:



Pointer; Size: Integers;

        



Изменяет размер динамической переменной



 



procedure Rename(var F; Newname:String) ;



procedure Rename(var F; Newname:PChar) ;

        



Переименовывает файл, связанный с файловой переменной f



procedure Reset(var F [: File;



RecSize: Word ] ) ;

        



Открывает существующий файл для чтения и/или записи



procedure Rewrite(var F: File [;



Recsize: Word ] ) ;

        



Создает новый файл и открывает его для записи



procedure RmDir(S: Strings;

        



Удаляет пустой каталог s



function Round(X: Extended):



Int64;

        



Округляет вещественное число до ближайшего целого



procedure RunError [ ( Errorcode:



Byte ) ];

        



Останавливает работу программы и сообщает код ошибки



procedure Seek(var F; N: Long-



Int) ;

        



Пропускает n байт от начала файла



 



function SeekEof [ (var F: Text)



]: Boolean;

        



Пропускает все байты до конца файла



 



function SeekEoln [ (var F: Text)



]: Boolean;

        



Пропускает все символы текстового файла до конца текущей строки



procedure Set8087CW(NewCW: Word);

        



Временно устанавливает новый режим работы арифметического сопроцессора



procedure SetLength(var S;



NewLength: Integer);

        



Устанавливает новую длину строки или



динамического массива



procedure SetMemoryManager (const



MemMgr: TMemoryManager);

        



Устанавливает новый менеджер динамической памяти



procedure SetString(var s: String; buffer: PChar; len: Integer) ;

        



Копирует Len символов буфера Buffer в строку s  



procedure SetTextBuf(var F: Text;



var Buf [ ; Size: Integer] );

        



Устанавливает внешний буфер Buf длиной size символов для файловой переменной f



function Sin(X: Extended): Ex



tended;

        



Возвращает синус аргумента (в радианах)



 



function SizeOf(X): Integer;

        



Возвращает длину переменной х в байтах



function Slice(var A: array;



Count: Integer): array;

        



Возвращает открытый массив, содержащий первые count элементов массива а



function Sqr(X: Extended): Extended;

        



Возвращает квадрат аргумента



function Sqrt(X: Extended): Extended;

        



Возвращает корень квадратный из аргумента



procedure Str(X [: Width [: Decimals ] ]; var S) ;

        



Преобразует х целого или вещественного



типа в строку s с учетом длины width и



количества знаков после запятой Decimals



function StringOfChar(Ch: CharCount: Integer): String;

        



Создает строку, состоящую из Count раз повторенного символа Ch



function StringToOleStr(const Source: String): PWideChar;

        



Копирует обычную строку в двухбайтную



function StringToWideChar(const



Source: String; Dest: PWideChar;



DestSize: Integer): PWideChar;

        



Преобразует обычную строку в строку с



символами UNICODE



function Succ(X) ;



 

        



Возвращает следующее значение для порядкового аргумента х



function Swap(X) ;



 

        



Меняет местами байты в 16-разрядном слове



function Trunc(X: Extended): Int64;

        



Преобразует вещественное число к целому путем отбрасывания дробной части



procedure Truncate(var F) ;



 

        



Отсекает оставшуюся часть файла до его конца



const Unassigned: Variant;



 



 

        



Используется для указания варианта с не



связанным (пустым) значением



function UpCase(Ch: Char): Char;



 

        



Преобразует строчный символ Ch в заглавный



procedure Val(S: String; var V;var Code: Integer);

        



Преобразует строковое значение в целую или вещественную величину



function VarArrayCreate(const



Bounds: array of Integer; VarType: Integer): Variant;

        



Создает вариантный массив



 



 



function VarArrayDimCount(consfc



A: Variant): Integer;

        



Возвращает количество измерении вариантного массива



function VarArrayHighBound



(const A: Variant; Dim: Integer):



Integers;

        



Возвращает верхнюю границу измерения



вариантного массива



 



 



function VarArrayLock(var A:



Variant): Pointers;

        



Блокирует вариантный массив и возвращает указатель на его данные



function VarArrayLowBound(const



A: Variant; Dim: Integer): Integer;

        



Возвращает нижнюю границу измерения вариантного массива



procedure VarArrayRedim(var A:



Variant; HighBound: Integer) ;

        



Перестраивает вариантный массив



 



 



function VarArrayRef(const A:



Variant): Variants-

        



Преобразует вариантный массив к форме, необходимой при обращении к API- функциям



procedure VarArrayUnlock(var A:



Variant) ;

        



Отменяет действие функции VarArrayLock



 



function VarAsType(const V: Variant; VarType: Integer): Variants;

        



Преобразует вариант к заданному типу 



 



procedure VarCast(var Dest: Variant; const Source: Variant; VarType: Integer);

        



Преобразует вариант к заданному типу и сохраняет результат в Dest



 



procedure VarClear(var V : Variant) ;

        



Помещает в вариант пустое значение



procedure VarCopy(var Dest: Vari



ant; const Source: Variants;

        



Копирует вариант-источник Source в вариант-приемник Dest



function VarFromDateTime



(DateTime: TDateTime): Variants;

        



Преобразует дату-время в значение варианта



function VarIsArray(const V:



Variant): Boolean;

        



Возвращает True, если v - вариантный массив



function VarIsEmpty(const V:



Variant): Boolean;

        



Возвращает True, если вариант имеет пустое значение



function VarIsNull(const V: Variant) : Boolean;

        



Возвращает True, если вариант имеет значение Null



function VarToDateTime(const V:



Variant): TDateTime) ;

        



Преобразует вариант в значение дата-время



 



function VarToStr(const V: Variant) : String;

        



Преобразует вариант в строку.



function VarType(const V: Vari



ant) : Integers;

        



Возвращает тип хранящегося в варианте результата



procedure WideCharLenToStrVar



(Source: PWideChar; SourceLen:



Integer; var Dest: String);

        



Преобразует не более SourceLen символов



строки UNICODE к обычной строке

 



function WideCharLenToString(Source: PWideChar; SourceLen:Integer): Strings;

Преобразует не более SourceLen символов строки UNICODE к обычной строке



procedure WideCharToStrVar (Source: PWideChar; var Dest:String);

Преобразует строку UNICODE к обычной строке
Взято из справочника по delphi. Примеры можно посмотреть в стандартной справке.