ПЕРЕМЕННЫЕ, ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ 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 к обычной строке
 

 

 
На главную | Содержание | < Назад....Вперёд >
С вопросами и предложениями можно обращаться по nicivas@bk.ru. 2013 г. Яндекс.Метрика