с любой программой, поэтому объявленные
Приложение 2
ПЕРЕМЕННЫЕ, ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ SYSTEM
Модуль SYSTEM автоматически связывается с любой программой, поэтому объявленные в его интерфейсной части типы, константы, переменные и подпрограммы доступны программисту в любой момент. В этом приложении приводится (в алфавитном порядке) список всех объявлений модуля в его интерфейсной секции. Следует заметить, что большинство объявлений осталось неизменным еще со времен давнего предшественника Delphi - системы программирования Turbo Pascal. Кроме того, многие подпрограммы описаны в других разделах книги (работа с файлами, с вариантами, преобразование строк и т. п.).
| 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 к обычной строке |
