Переменные, процедуры и функции модуля System

Модуль SYSTEM автоматически связывается с любой программой, поэтому объявленные в его интерфейсной части типы, константы, переменные и подпрограммы доступны программисту в любой момент. В этом приложении приводится (в алфавитном порядке) список всех объявлений модуля в его интерфейсной секции. Следует заметить, что большинство объявлений осталось неизменным еще со времен давнего предшественника Delphi - системы программирования Turbo Pascal. Кроме того, многие подпрограммы описаны в других разделах книги (работа с файлами, с вариантами, преобразование строк и т. п.).

function Abs(X);

Возвращает абсолютную величину выражения x (целого или вещественного типа)

function Addr(X): Pointer;

Возвращает адрес переменной или подпрограммы х

var AllocMemCount: Integer;

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

var A11оcMemSize: Integer;

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

procedure Append (var F: Text);

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

function ArcTan(X: Extended): Extended;

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

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

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

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

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

function Assigned (var P): Boolean;

False, если указатель P связан с 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 AmtTransferred: Integer);

Записывает в файл, связанный с F, в AmtTransfered истинное количество записанных блоков

procedure Break;

Немедленно прекращает выполнение циклов for, while или repeat

procedure ChDir(S: Strings);

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

function Chr(X: Byte): Char;

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

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): String;

function Copy(S; Index, Count:Integer): array;

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

function Cos(X: Extended): Extended;

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

procedure CurrencyToComp(acurrency: Currency; var result:Comp); cdecl;

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

var DLLProc: Pointer;

Указывает точку входа в DLL -процедуру, которая выполняется в данный момент

procedure Dec(var X; N: LongInt);

Уменьшает X на N, а если N опущено - на 1. X, 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);

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

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

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;

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

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);

Заполняет переменную X не более Count байтами со значением Value

procedure Finalize(var V;Count: Integer);

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

function FindClassHInstance(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): Extended;

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

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);

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

function IOResult: Integer;

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

procedure Inc(var X; N: LongInt);

Наращивает X на N, а если N отсутствует – на единицу

procedure Include(var S: Set of T; 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): Extended;

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

var IsConsole: Boolean;

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

var IsLibrary: Boolean;

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

function IsMemoryManagerSet: Boolean;

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

var IsMultiThread: Boolean;

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

var J I TEnable: Byte;

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

function Length (S): Integer;

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

function Ln(X: Real): Real;

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

function Lo(X): Byte;

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

function Low(X);

Возвращает наименьшее значение диапазона порядкового типа, строки или открытого массива, к которому принадлежит 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;

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

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

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

function Pred(X);

Возвращает предыдущее значение для выражения 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: LongInt);

Пропускает 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): Extended;

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

function SizeOf(X): Integer;

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

function Slice(var A: array;Count: Integer): array;

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

function Sqr(X: Extended): Extended;

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

function Sqrt(X: Extended): Extended;

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

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

Преобразует X целого или вещественного типа в строку 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);

Возвращает следующее значение для порядкового аргумента 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(const 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): Variant;

Преобразует вариантный массив к форме, необходимой при обращении к 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: Variant; 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: Variant): 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 к обычной строке

(там выполняются различные виды преобразования из одних типов данных в другие.Рассказать основные.типа:IntToStr… и тд.Обязательно упомянуть,что там есть функция Format. Обработчики искл.ситуаций.Рассказать основные полезные вещи.ФайнФёрст,ФайндНекст)