Встроенные функции и процедуры.

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by mari00, 2 Dec 2006.

  1. mari00

    mari00 Elder - Старейшина

    Joined:
    27 Oct 2006
    Messages:
    93
    Likes Received:
    40
    Reputations:
    16
    Можете выложить стандартные функции и процедуры в Делфи7. :confused: Желательно с русским описанием и примерами.Заранее спасибо за будущий труд!
     
  2. r0

    r0 Elder - Старейшина

    Joined:
    17 Jul 2005
    Messages:
    450
    Likes Received:
    149
    Reputations:
    147
    см ман по object pascal'ю
     
    1 person likes this.
  3. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    Какие именно интересуют?
    1. Работа с файлами?
    2. Работа со строками
    3. Массив
    и т.д.
     
    1 person likes this.
  4. Lombardo

    Lombardo New Member

    Joined:
    18 Nov 2006
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0
    Что значит стандартные? Так в "стандартную" поставку Delphi 7 входит куча модулей (unit-ов), все не перечислиш... :) если ты имееш в виду процедуры и функции из модуля System, то гугли яндекс - найдеш много всякой информации, видели и "Делпхи для начинающих" и "Делпхи для профов" etc... :) вот с первого запроса нашел - http://www.delphikingdom.com/asp/nets.asp?ItemID=221 ;)
     
    1 person likes this.
  5. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    как только дома окажусь перечислю некоторые Pascal'ьные функции используемые в Delphi (бред)
     
  6. r0

    r0 Elder - Старейшина

    Joined:
    17 Jul 2005
    Messages:
    450
    Likes Received:
    149
    Reputations:
    147
    В каком смысле бред ?
    Delphi это и есть тот же pascal
     
  7. TaNkist

    TaNkist Elder - Старейшина

    Joined:
    6 Apr 2006
    Messages:
    147
    Likes Received:
    47
    Reputations:
    19
    ПЕРЕМЕННЫЕ, ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ SYSTEM
    Code:
    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 к обычной строке
     
    Взято из справочника по delphi. Примеры можно посмотреть в стандартной справке.
     
    1 person likes this.
  8. mari00

    mari00 Elder - Старейшина

    Joined:
    27 Oct 2006
    Messages:
    93
    Likes Received:
    40
    Reputations:
    16
    Хм всем спасибо...Помогло)
     
  9. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    вот и говорю БРЕД ;)