Главная
История
Borland Pascal
Учебник
Справочник
Процедуры
System
Graph
CRT
DOS
Strings
Overlay
Borland Delphi
Borland Kylix
Компоненты
Download
Форум
Гостевая книга
Реклама
Справочные данные по процедурам и функциям Borland Pascal 7
Модуль System
| Интерфейс | Описание |
|---|---|
| Function Abs(x : real) : real; | Абсолютное значение |
| Function Addr(x: <any type>) : pointer; | Функция определяет адресс объекта заданного параметром x |
| Function ArcTan(x : real) : real; | Арктангенс угла в радианах |
| Function Assigned(var p: pointer) : boolean; | Функция возвращает True если указателю 'p' присвоенно значение, в противном случае возвращает False |
| Function CSeg : word; | Функция возвращает текущее значение регистра CS |
| Function Chr (i : byte) : char; | Возвращает символ по его коду в таблице ASCII |
| Function Concat(s1, s2, ... : string) : string; | Функция объединяет несколько строк в одну |
| Function Copy(source: string; pos, count: integer) : string; | Функция копирует подстроку (т.е. какую-то её часть) из строки source, начиная с позиции pos. Число копирумых символов определяет параметр count |
| Function Cos(x : real) : real; | Косинус угла в радианах (1 рад (радиан)~57 градусов) |
| Function DSeg : word; | Функция возвращает текущее значение регистра DS |
| Function EoLn(var f: text) : boolean; | Функция определяет, достигнут ли конец строки в текстовом файле, возвращая, соответственно True или False |
| Function Eof(var filevar: <file type>) : boolean; | Функция определяет достигнут ли конец файла |
| Function Exp(x : real) : real; | Показательная функция экспонента |
| Function FilePos(filevar: <file type>) : longint; | Функция определяет текущее положение указателя в файле |
| Function FileSize(filevar: <file type>) : longint; | Функция определяет размер внешнего файла |
| Function Frac(x : real) : real; | Дробная часть числа |
| Function Hi(x : word) : byte; | Возвращает старщий байт аргумента |
| Function High(x) : tx; | Возвращает наибольшее значение для объекта порядкового типа, для массивов возвращает значение наибольшего индекса |
| Function IOResult : integer; | Функция возвращает код последней выполненной операции ввода/вывода |
| Function Int(x : real) : real; | Целая часть числа |
| Function Length(s: string) : integer; | Функция определяет длину указываемой строки |
| Function Ln(x : real) : real; | Логарифм |
| Function Lo(x : word) : byte; | Возвращает младший байт аргумента |
| Function MaxAvial : longint; | Функция возвращает размер наибольшего непрерывного свободного блока кучи |
| Function MemAvial : iongint; | Функция возвращает общее число свободных байт в куче |
| Function Odd(i : <var type>) : boolean; | Проверяет аргумент на нечетность |
| Function Ofs(x : <any type>) : word; | Функция определяет смещение адреса объекта 'x' |
| Function Ord(i : <type>) : longint; | Преобразует типы char и boolen к целому значению, целые значения оставляет неизменными |
| Function ParamCount : word; | Функция возвращает число параметров командной строки переданной при запуске приложения |
| Function ParamStr(Num : byte) : string; | Функция возвращает параметр командной строки, заданной номером Num |
| Function Pi : real; | Число Пи (~3,14) |
| Function Pos(substr, str: string) : byte; | Функция ищет подстроку substr в строке str, возвращая при этом номер позиции, с которого начинается искомая строка; если строку не удалось найти функция возвращает 0 |
| Function Pred(i : <var type>) : <var type>; | Функция возвращает значение равное i-1, Не изменяя значение полученного аргумента |
| Function Ptr(segment, offset: word) : pointer; | Функция создаёт указатель, пользуясь параметрами segmant (сегмент) и offset (смешение) |
| Function Random : real; [Function Random(range : word) : word;] | Случайное число, если задан параметр range то знач от 0 до range-1, иначе вещественное число от 0 до 1 |
| Function Round(x : real) : longint; | Округляет дробное число до ближайшего целого |
| Function SPtr : word; | Функция возвращает текущее значение регистра SP |
| Function SSeg : word; | Функция возвращает текущее значение регистра SS |
| Function SeekEof(var f: text): boolean; | Функйия определяет достигнут ли конец текстового файла, игнорируя символы пробелов, табуляции и конца строк |
| Function SeekEoln(var f: text): boolean; | Функция определяет достигнут ли конец строки в текстовом файле, игнорируя символы пробелов, табуляции и конца строк |
| Function Seg(x : <any type>) : word; | Функция определяет сегмент адреса объекта 'x' |
| Function SetTextBuf(var f: text; var buf, [ size: word ] ); | Функция создаёт буфер (buf) ввода/вывода для текстового (f) файла, размером, если указан, size |
| Function Sin(x : real) : real; | Синус угла в радианах (1 рад (радиан)~57 градусов) |
| Function SizeOf(x : <var any type>); | Функция возвращает число занимаемых байт указанным аргументом |
| Function Sizeof(x: <any type>) : word; | Функция возвращает объём памяти, занимаемый переменной 'x' |
| Function Sqr(x : real) : real; | Квадрат числа |
| Function Sqrt(x : real) : real; | Корень из числа |
| Function Succ(i : <var type>) : <var type>; | Функция возвращает значение равное i+1, Не изменяя значение полученного аргумента |
| Function Swap(x : <byte type>) : <byte type>; | Функция меняет местами младшие и старшие байты у аргумента |
| Function Trunc(x : real) : longint; | Отсекает у дробного числа дробную часть |
| Function UpCase(symbol: char) : char; | Функция преобразует символы к серхнему рагистру |
| Procedure Append(var f: text); | Открывает существующий файл, определенный как текстовый, для добавления текста в конец файла |
| Procedure Assign(filevar: <file type>, filename: string); | Присваевает файловой переменной filevar имя внешнего файла, путь к которому указан параметром filename |
| Procedure BlockRead(var filevar: file; var buf: <any type>; count: word; [var result: word]); | Считывает из нетипизированного файла (filevar) count записей в некоторый буфер (buf), устанавливая указатель, если задан параметр result, в положение result |
| Procedure BlockWrite(var filevar: file; var buf: <any type>; count: word; [var result: word]); | Записывает в нетипизированный файл (filevar) count записей из некоторого буфер (buf), устанавливая указатель, если задан параметр result, в положение result |
| Procedure Break; | Процедура выхода из цикла |
| Procedure ChDir(newdir: string); | Изменение текущего каталога на каталог указанный параметром newdir |
| Procedure Close(var filevar: <file type>); | Закрывает открытый файл связанный с переменной filevar |
| Procedure Continue; | Завершение итерации цикла |
| Procedure Dec(var i : <var type>, [n : longint] ); | Изменяет значение i на -1 или на -n если задан параметр n, сохраняя получившееся значение |
| Procedure Delete(source: string; pos, count: integer); | Удаляет подстроку (т.е. какую-то её часть) из строки source, начиная с позиции pos. Число удаляемых символов определяет параметр count |
| Procedure Dispose(var ptr: pointer, [done: destructor]); | Уничтожает динамическую переменную, заданную указателем ptr; параметр done задаётся при уничтожении объектов |
| Procedure Dispose(var ptr: pointer, init: construcor); | Уничтожает динамическую переменную, созданную процедурой New |
| Procedure Erase(filevar: <file type>); | Уничтожает внешний файл, связанный с переменной filevar |
| Procedure Exclude(var s: set of t, element: t); | Исключает элемент element из множества s |
| Procedure Exit; | Выход из процедуры или функции |
| Procedure FillChar(var x: <any type>; count: word; value: byte [char]); | Заполняет заданное число байт count, указанным значением value, начиная с 'x' |
| Procedure FillChar(x : <var any type>, Count : word, Value : <var type>); | Процедура заполняет указанное число байт указанным значением |
| Procedure Flush(var f: text); | Вставляет содержимое буфера обмена в текстовый файл |
| Procedure FreeMem(var ptr: pointer, size: word); | Уничтожает динамическую переменную с указателем ptr и размером size (Getmem и FreeMem работают в паре друг с другом, при этом, вначале, GetMem создаёт переменную, а FreeMem уничтожает её, освобождая память) |
| Procedure GetDir(driver: byte, var currentdir: string); | Возвращает текущий каталог на указанном driver диске |
| Procedure GetMem(var ptr: pointer, size: word); | Создёт динамическую переменную размером size, устанавливая указатель на неё (Getmem и FreeMem работают в паре друг с другом, при этом, вначале, GetMem создаёт переменную, а FreeMem уничтожает её, освобождая память) |
| Procedure Halt( [ExitCode : word] ); | Завершение приложения с возвратом в операционную систему (ExitCode-код завершения программы) |
| Procedure Inc( i : <var type>, [n : longint] ); | Изменяет значение i на +1 или на +n если задан параметр n, сохраняя получившееся значение |
| Procedure Include(var s: set of t, element: t); | Включает элемент element во множество s |
| Procedure Insert(source: string; var dest: string; pos: integer); | Вставляет строку source в строку dest, начиная с позиции pos |
| Procedure Low(x) : tx; | Возвращает наименьшее значение для объекта порядкового типа, для массивов возвращает значение наименьшего индекса |
| Procedure Mark(var ptr: pointer); | Записывает текущее состояние кучи в переменную ptr (данная процедура применяется в паре с процедурой Release) |
| Procedure MkDir(newdir: string); | Открывает новый каталог |
| Procedure Move(var Source, Dest, Cound : word); | Процедура копирует указанное число байт из аргумента донора (Source) в аргумент приема (Dest); Cound число копируемых байт |
| Procedure Move(var source, dest, cound: word); | Копирует из аргумента source заданное кол-во байт cound в аргумент dest |
| Procedure New(var ptr:pointer); | Создаёт динамическую переменную, устанавливая указатель на неё |
| Procedure Randomize; | Включение генератора слючайных чисел |
| Procedure ReWrite(filevar: <file type>); | Создаёт или открывает файл уничтожая всё его содержимое |
| Procedure Read( [ filevar: text ] или [ filevar: <file type> ]; var v1, v2,...); | Считывает одно или более значений из файла (если с ним связана) или с экрана (если ни с чем не связана) в одну или более переменных типа string или char |
| Procedure ReadLn( [ filevar: text ] или [ filevar: | Выполняет все те же действия, что и Read, только следующее чтение или запись начнется с новой строки |
| Procedure Release(var ptr: pointer); | Освобождает некоторое кол-во памяти следующее после указателя (данная процедура применяется в паре с процедурой Mark) |
| Procedure Rename(filevar: <filetype>, newname: string); | Переменовывает файл связанный с переменной filevar |
| Procedure Reset(filevar: <file type>); | Открывает существующий файл не уничтожая его содержимого |
| Procedure RmDir(deldir: string); | Удаляет пустой каталог |
| Procedure RunError([ErrorCode: byte]); | Останавливает программу, генерируя код ошибки ErrorCode |
| Procedure Seek(filevar: <file type>, pos: longint); | Передвигает указатель в файле на позицию pos |
| Procedure Str(x: <integer or float>; var str: string); | Преобразует числа в текст (х преобразуемое число, str - результирующая строка) |
| Procedure Truncate(filevar: <file type>); | Усекает открытый файл до позиции указателя |
| Procedure Val(valuestr: string; var x: <integer or float>; errorcode: integer); | Преобразует текст к численному значению (valuestr - преобразуемая строка, х - результат преобразований, errorcode - код возможной ошибки |
| Procedure Write( [ filevar: text ] или [ filevar: <file type> ]; var v1, v2,...); | Записывает одно или более значений в файл, если с ним связана, или просто выводит значения на экран |
| Procedure WriteLn( [ filevar: text ] или [ filevar: | Выполняет все те же действия, что и Write, только в отличии от Write добавляет в конец вводимого значения символ новой строки |
Копирование и использование данных материалов разрешается только в случае указания на сайт «Pascalfamily: всё о семействе Object Pascal» как на источник получения информации, при этом во всех ссылках обязательно явное указание адреса вэб-сайта http://www.pascalfamily.narod.ru/.
