Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»
function Time: TDateTime; |
Возвращает текущее время |
function TimeToStr (T: TDateTime):string |
Преобразует время в строку |
Строковые типы
В Object Pascal определено несколько типов строк (таблица 7).
Таблица 7 – Строковые типы
Тип Описание
ShortString Короткая строка. Максимальная длина строки 255 символов. Формат символов AnsiChar. Максимальная длина строки может быть задана, например
s: string[20];
строка длиной 20 символов.
AnsiString Длинная строка. Максимальная длина строки порядка 231 символов.
PChar Строки с завершающим нулем. (используются API Windows). Максимальная длина строки порядка 231 символов. Формат символов
AnsiChar.
WideString Широкие строки. Максимальная длина строки порядка 216 символов. Формат символа WideChar.
String По умолчанию является псевдонимом типа AnsiString, если не указана длина строки.
Строковые константы задаются в одинарных кавычках, например var s:string;
begin
s:=’Hello World!’; end.
Для сцепления двух строк в одну необходимо применять оператор ‘+’, например var s, s1:string;
begin s:=’Hello’; s1:=’ World!’; s:=s+s1; writeln(s); end.
В результате выполнения выше приведенной программы на экран будет выведено
Hello World!.
Основные функции для работы со строками приведены в таблице 8.
Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»
Таблица 8* – Процедуры и функции для работы со строками
Подпрограмма
function Copy (Source: string; Index, Count: Integer):string;
procedure Delete (var Source: string; Index, Count: Integer);
procedure Insert (SubSt: string; var St: string; Indext: Integer);
function Length (S:string):integer; function Pos (SubSt, St:string):integer;
Описание
Копирует из строки Source Count символов, начиная с символа с номером Index.
Удаляет Count символов из строки Source, начиная с символа с номером индекс.
Вставляет подстроку SubSt в строку St, начиная с символа с номером Index.
Возвращает текущую длину строки.
Отыскивает в строке St первое вхождение подстроки SubSt и возвращает номер позиции с которой она начинается. Если подстрока не найдена возвращается ноль.
Преобразование типов
При написании программ часто бывает необходимым преобразовать тип переменной. Близкие типы можно преобразовывать с помощью следующей конструкции.
<идентификатор типа>(<переменная>)
Например преобразование типа переменной Integer к типу Word выглядит следующим образом
var i:Integer; j:Word;
…
j:=Word(i):
В таблице 9 приведены стандартные функции преобразования типов.
Таблица 9 – Стандартные функции преобразования типов
Подпрограмма
function Trunc(X:real):Integer function Round(X:real):Integer
function Val(St:string; var X; Code:Integer)
procedure Str(X [:Width:[:Decimals]]; var St:string)
Описание
Отсекает дробную часть числа
Округляет вещественное число до целого по правилам арифметики
Преобразует строку символов St в вещественную или целую переменную (в зависимости от типа переменной X). Параметр Code содержит индекс символа который вызвал ошибку при преобразовании или 0 если ошибки не произошло.
Преобразует число X любого вещественного или целого типа в строку символов St. Параметры Width и Decimals,
* Функции приведенные в этой таблице применимы к типам AnsiString и ShortString.