Коднянко В.А.
Программирование на языке Object Pascal в среде Delphi

 

12. Стандартные процедуры и функции

Язык содержит ряд процедур и функций, которые в практике программирования ипользуются наиболее часто. Расширенный список процедур и функций, которые могут найти применение в практике программирования, приведен в приложении.

12.1. Строковые процедуры и функции

  1. Function Length (St): LongInt;

    2. Возвращает длину строки символов St, т. е. количество символов в ней (не путать с размером строки).

    St:= '1234abc';

    L:= Length(St); {L= 7}

  2. Procedure Delete (St, Pos, Num);

    3. Удаляет Num символов из строки St начиная с позиции Pos, если Pos<Length (St).

    St:= '1234abc';
    Delete(St, 4, 2); { St= '123bc'}
    Delete(St, 3, 120); { St= '12'}

  3. Procedure Insert (Obj, Target, Pos);

    4. Вставляет строку Obj в строку Target начиная с позиции Pos. Если Pos>Length (Target), то результат Target + Obj.

    St1:= '***';
    St2:= '1234abc';
    Insert (St1, St2, 3) { St2= '12***34abc'}

  4. Procedure Str (Value, St);

    5. Преобразует значение Value числового типа в строку символов St. Value может сопровождаться форматом.

    L:=19;
    Str (L, g); {g= '19'}
    R:= 2.123155;
    Str (R: 8:3, h); {h= ' 2.123' (длина 8, в дробной части 3}

  5. Procedure Val (St, Vr, Code);

    6. Преобразует строку символов St в числовую величину Vr целого или вещественного типа. Code = 0, если преобразование прошло успешно, иначе в Code будет записан номер первого ошибочного символа конвертируемой строки, при этом значение Vr не определено.

    St:='319';
    Val (St, k, Cod); {k= 319, Cod = 0}
    St:='81yy9';
    Val (St, k, Cod); {k= ?, Cod = 3}

  6. Function Copy (St, Pos, Num): String;

    7. Выделяет из строки St подстроку символов длиной Num начиная с позиции Pos. Если Pos>Length, то возвращает пустую строку.

    St1:='АБВГДЕ';
    St2:= Copy(St1, 2, 3); {St2= 'БВГ'}
    St2:= Copy(St1, 2, 27); {St2= 'БВГДЕ'}
    St2:= Copy(St1, 44, 2); {возвращает пустую строку St2= ''}

  7. Function Concat (St1, St2{, …, StN}): String;

    8. Объединяет строки в одну строку.

    St:='abc';
    St1:=Concat( 'sss', St, '1234'); {St1= 'sssabc1234'}
    St1:=Concat( St, '123'); {St1= 'abc123'}

  8. Function Pos (Obj, Target): Integer;

    9. Возвращает номер символа, начиная с которого строка Obj первый раз входит в строку Target. Если строка Obj отсутствует в строке Target, то Pos = 0.

    Q:= 'Иванов Сергей Петрович';
    H:= Pos ('Сергей', Q); {H= 7}
    H:= Pos ('Игорь', Q); {H= 0}

  9. Function SizeOf (Obj): Integer;

    10. Возвращает размер переменной Obj.
  10. Function FormatFloat(const Format: string; Value: Extended): string;

Возвращает форматированное вещественное значение в виде строки. Format – формат числа, Value – число. В табл. 14 даны форматы функции FormatFloat.

Таблица 14

Формат

Описание

0

#

.

,

E+, E-

 

;

 Поле для цифры. Недостающие позиции заменяются нулями

Поле для цифры. Если в позиции имеется значащая цифра, то оно выводится. Нули не выводятся

Разделитель целой и дробной частей

Поле разделителя тысяч, миллионов

Формат представления чисел с плавающей точкой. Если "+" указан, то перед порядком выводится знак. Если указан "-", то минус выводится только для отрицательных порядков

Разделитель форматов

 

Примеры действия форматов при конвертации числа в строку представлены в табл. 15.

Таблица 15

Формат

Число 1

Число 2

Число 3

Число 4
0

0.00

#.##

#,##0.00

#,##0.00;(#,##0.00)

#,##0.00;;Zero

0.000E+00

#.###E-0

1234

1234

1234.00

1234

1,234.00

1,234.00

1,234.00

.234E+03

1.234E3

-1234

-1234

-1234.00

-1234

-1,234.00

(1,234.00)

-1,234.00

-1.234E+03

-1.234E3

0.5

1

0.50

.5

0.50

0.50

0.50

5.000E-01

5E-1

0

0

0.00

0.00

0.00

Zero

0.000E+00

0E0

 

12.2. Стандартные функции 

  1. Function Char (X: byte): Char;
    2.

    Возвращает символ с номером X.

    Ch:= Char(74); {Ch= 'J'}

  2. Function Ord (X): LongInt;

    3. Возвращает порядковый номер скалярного аргумента.

    j:= Ord('J'); {j= 74}

  3. Function Round (X: Real): LongInt;

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

    j:= Round(12.8235); {j= 13}

  4. Function Trunc (X: Real): LongInt;

Возвращает целое путем отбрасывания дробной части вещественного аргумента.

j:= Round(12.8235); {j= 12}

12.3. Арифметические процедуры и функции 

  1. Function Frac (X: Extended): Extended;

    2. Возвращает дробную часть аргумента, например:

    r:= Frac(-12.82); {r = -0.82, Frac(12.82)=0.82 }

  2. Function Abs (X: Extended): Extended;

    3. Возвращает абсолютное значение аргумента, например:

    r:= Abs(-12.82); {r = 12.82}

  3. Function ArcTan (X: Extended): Extended;

    4. Возвращает арктангенс аргумента.
  4. Function Cos (X: Extended): Extended;

    5. Возвращает косинус аргумента.

  5. Function Sin (X: Real): Real;

    6. Возвращает синус аргумента.

  6. Function ArcCos(X: Extended): Extended;

    7. Возвращает арккосинус аргумента, значение которого должно принадле-жать отрезку [-1, 1]. Возвращает значение из отрезка [0, Pi].

  7. Function ArcSin(X: Extended): Extended;

    8. Возвращает арксинус аргумента, значение которого должно принадле-жать отрезку [-1, 1]. Возвращает значение из отрезка [-Pi/2, Pi/2].

  8. Function ArcTan2(Y, X: Extended): Extended;

    9. Возвращает арктангенс аргументов, вычисляя ArcTan(Y/X) в соответ-ствии с квадрантами координатной плоскости xOy. Возвращает значение из отрезка [-Pi, Pi].

  9. Function Exp (X: Real): Real;

    10. Возвращает экспоненту аргумента.

  10. Function Sinh(X: Extended): Extended;

    11. Возвращает гиперболический синус аргумента.

  11. Function Cosh(X: Extended): Extended;

    12. Возвращает гиперболический косинус аргумента.

  12. Function Tanh(X: Extended): Extended;

    13. Возвращает гиперболический тангенс аргумента.

  13. Function ArcSinh(X: Extended): Extended;

    14. Возвращает гиперболический арксинус аргумента.

  14. Function ArcCosh(X: Extended): Extended;

    15. Возвращает гиперболический арккосинус аргумента.

  15. Function ArcTanh(X: Extended): Extended;

    16. Возвращает гиперболический арктангенс аргумента.

  16. Function Ln (X: Real): Real;

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

  17. Function Sqr (X: Real): Real;

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

  18. Function Sqrt (X: Real): Real;

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

  19. Function Ceil(X: Extended):Integer;

    20. Возвращает наибольшее целое аргумента.

    Сeil(-2.8) = -2
    Ceil(2.8) = 3
    Ceil(-1.0) = -1

  20. Function Floor(X: Extended): Integer;

    21. Возвращает наименьшее целое аргумента.

    Ceil(-2.8) = -3
    Ceil(2.8) = 2
    Ceil(-1.0) = -1

  21. Function Dec (X, [n]: LongInt): LongInt;

    22. Уменьшает значение аргумента на величину второго параметра. Если он отсутствует, то уменьшает на 1.

    J:=67;
    K:=Dec(J); {j= 66}
    K:=Dec(J, 13); {j= 53}

  22. Function Inc (X, [n]: LongInt): LongInt;

Увеличивает значение аргумента на величину второго параметра. Если он отсутствует, то увеличивает на 1.

J:=67;
K:=Inc(J); {j= 68}
K:=Inc(J, 13); {j= 81}

12.4. Скалярные функции

  1. Function Odd (X: LongInt): Boolean;

    2. Возвращает True, если аргумент четный.

    J:=67;
    K:=Odd(J); {K= False}

  2. Function Pred (X);

    3. Возвращает предшествующее значение типа аргумента.
  3. Function Succ (X);

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

12.5. Процедуры завершения

  1. Procedure Exit; Выход из процедуры.
  2. Procedure Halt([Code:Word]);

Выход в операционную систему с кодом возврата, если он указан.

 

12.6. Процедуры и функции для работы с типами "дата/время"

Типы TDateTime и TTimeStamp, а также производные от них типы предназначены для хранения даты и времени. Эти типы используются в ряде весьма полезных и необходимых процедур и функций для работы с датами и временем.

  1. Function Now: TDateTime;

    2. Возвращает текущую дату и время.
  2. Function Date: TDateTime;

    3. Возвращает текущую дату.
  3. Function Time: TDateTime;

    4. Возвращает текущее время.
  4. Function DateToStr (D: TDateTime): String;

    5. Преобразует дату в строку символов, например:

    S:= DateTimeToStr(Date); {текущая дата '26.10.99'}

  5. Function TimeToStr(T: TDateTime): String;

    6. Преобразует время в строку символов, например:

    S:= TimeToStr(Time); { текущее время '13.58.13'}

  6. Function DateTimeToStr(DateTime: TDateTime): String;

    7. Преобразует дату/время в строку символов, например:

    S:= DateTimeToStr(Now); { текущие дата и время '26.10.99 14.01.51'}

  7. Function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;

    8. Конвертирует TDateTime в TTimeStamp, например:

    TS:= DateTimeToTimeStamp(Now); {type TS = TTimeStamp}

    s:= IntToStr(Ts.Date) + ' ' + IntToStr(Ts.Time); {'730053 51095810' – (прошло дней с 00.00.0000 г. и миллисекунд от полуночи текущего дня}

  8. Function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;

    9. Конвертирует TTimeStamp в TDateTime.

  9. Procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

    10. Раскладывет дату Date на год, месяц и день, например:

    DecodeDate(Now, Y, M, D);
    s:= IntToStr(Y) + ' ' + IntToStr(M) + ' ' + IntToStr(M); {'1999 10 26'}

  10. .Procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

    11. Раскладывет время Time на час, минуты, секунды и миллисекунды, например:

    DecodeTime(Now, H, M, S, MS);
    ss:= IntToStr(H) + ' ' + IntToStr(M) + ' ' + IntToStr(S) + ' ' + IntToStr(MS);
    {'14 22 34 567', т. е. 14 ч 22 мин 34 с 567 мс}

  11. .Function EncodeDate(Year, Month, Day: Word): TDateTime;

    12. Противоположна DecodeDate;

  12. .Function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

    13. Противоположна DecodeTime;

  13. .Function FormatDateTime(const Frmt: string; DateTime: TDateTime): string;

Преобразует DateTime в строку с заданным форматом. Если формат пуст, то функция возвращает строку в формате "c". Следующий оператор присвоит строковой переменной s значение 'Встреча состоится: пятница, 6 Ноябрь, 1999, в 10:30 AM'.

s:= FormatDateTime('"Встреча состоится:" dddd, mmmm d, yyyy, ' +'"в" hh:mm AM/PM', StrToDateTime('6.11.99 10:30am'));

Виды форматов даны в табл. 16.

12.7. Прочие процедуры и функции

  1. Function Hi(X): byte;

    2. Возвращает старший байт своего целочисленного аргумента.
  2. Function Lo(X) : byte;

    3. Возвращает младший байт своего целочисленного аргумента.
  3. Procedure Swap(X);

    4. Меняет старший и младший байты целочисленного аргумента местами.
  4. Procedure Randomize;

    5. Инициализирует генератор случайных чисел.

  5. Function Random(N: Integer): Integer;

    6. Возвращает случайное число из интервала (0, N).

  6. Function SizeOf(X) : Integer;

    7. Возвращает число байт, занимаемых аргументом.
  7. Procedure Move(Var Source, Dest; Count: Integer);

    8. Копирует Count байт из переменной Source в переменную Dest. В случае перекрытия областей памяти пересылка в перекрывающуюся область не производится.

  8. Function ParamCount: Word;

    9. Возвращает число параметров, переданных в командной строке.
  9. Procedure Break;

    10. Оператор безусловного завершения цикла, процедуры или функции.
  10. . Procedure Continue;

    11. Оператор, используемый в цикле для передачи управления в его начало.

    Таблица 16

    Формат

    Описание

    C

     

    D

    Dd

    Ddd

    Dddd

    Ddddd

    Dddddd

    M

    Mm

    Mmm

    Mmmm

    Yy

    Yyyy

    h

    hh

    n

    nn

    s

    ss

    t

    tt

    am/pm

    ampm

    a/p

    /

    :

    Показывает сначала дату в формате дд.мм.гг, затем время в формате чч.мм.сс. Не показывает время, если дробная часть DateTime равна нулю

    Показывает день без лидирующего нуля (1 – 31)

    Показывает день с лидирующим нулём (01 – 31)

    Показывает день недели в укороченном формате (Вос – Суб)

    Показывает день недели в полном формате (Воскресенье – Суббота)

    Показывает дату в формате дд.мм.гг.

    Показывает дату в формате д Месяц год

    Показывает месяц без лидирующего нуля (1 – 12)

    Показывает месяц с лидирующим нулём (01 – 12)

    Показывает месяц в сокращенном виде (Янв – Дек)

    Показывает месяц в полном формате (Январь – Декабрь)

    Показывает год в виде двух последних цифр (00 – 99)

    Показывает год в виде четырех цифр (00000 – 9999)

    Показывает час без лидирующего нуля (0 – 23)

    Показывает час с лидирующим нулем (00 – 23)

    Показывает минуту без лидирующего нуля (0 – 59)

    Показывает минуту с лидирующим нулем (00 – 59)

    Показывает секунду без лидирующего нуля (0 – 59)

    Показывает секунду с лидирующим нулем (00 – 59)

    Показывает время в формате чч:мм

    Показывает время в формате чч:мм:сс

    Показывает время в 12-часовом формате (am – до полудня, pm – после полудня)

    Показывает время в 12-часовом формате без указателя до/после полудня

    Использует Windows-разделитель даты.

    Использует Windows-разделитель времени

     

  11. . procedure Abort;

Используется в контексте с другим оператором; отменяет "задним числом" оператор в случае его аварийного завершения, блокирует выдачу сообщения об ошибке, удобен к использованию в блоке try … finally.

 
</body> </html>