|
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
к обычной строке
|
