Организация размещение в памяти процедуры и функции обработки строк и символов delphi
Обновлено: 04.07.2024
Библиотека языка программирования Delphi включает несколько достаточно полезных процедур и функций, чтобы работать со строками. Какие есть операции со строками Delphi? Подробнее остановимся на каждой из них и приведем их примеры.
Примеры операции со строками Delphi
1) Функция length возвращает длину указанной строки. Данная функция обладает одним параметром, который представляет собой выражение, имеющее строковый тип данных. В качестве значения функции length выступает целое число, обозначающее количество символов, входящих в состав строки.
Примеры
В результате выполнения этих инструкций переменная a пример значение 6, а переменная b получит значение 9. 2)
2) Процедура delete. С помощью процедуры delete можно удалить определенную часть строки. Общий вид процедуры delete выглядит следующим образом:
- строка обозначает переменную или константу с строковым типом данных;
- n есть номер символа, начиная с которого удаляется заданная подстрока;
- m представляет собой длину удаляемой впоследствии подстроки.
Пример
При выполнении инструкции
3) Функция роs. С помощью функции pos возможно определение положения подстроки в указанной строке. Общий вид инструкции функции pos представляется так:
откуда подстрока представляется собой переменную или константу строкового типа, которую необходимо отыскать в строковой переменной или константе строка.
Пример
При выполнении следующей инструкции:
Переменная n примет значение 2. В случае, если строка не содержит искомую подстроку, то функция pos возвращает значение 0. Приведем пример инструкции оператора while, которая позволит удалить начальные пробелы из указанной строки:
4) Функция copy выделяет фрагмент указанной строки. Общий вид инструкции функции copy представляется следующим образом:
откуда строка обозначает строковое выражение, включающее строку, фрагмент которой необходимо получить; n обозначает номер первого символа, начиная с которого выделяется подстрока; m обозначает длину выделяемой подстроки.
Пример
При выполнении инструкции
town:=copy(s, 7, 12) ;
var S, S1, S2: String;
begin
S:=S1+S2;
end;
Результирующая строка S будет суммой двух слагаемых строк. Длина строки, то есть количество символов в строке, возвращается встроенной функцией
function Length(S: String): Integer;
Delphi работает со строками типа String, в котором длина строки записывается в начале строки, перед первым символом. Поэтому индекс первого символа в строке не 0, а 1. То есть, если:
S:='Строка типа String';
то S[1] - символ 'С', S[2] - символ 'т' , последний символ в строке - S[Length(S)], равный 'g'.
function PChar(S: String): PChar;
Для полноценной работы со строками Delphi используются следующие стандартные процедуры и функции:
Функции преобразования в числовой формат и обратно
Выполняя вычисления, используем для ввода данных и отображения результатов следующие функции, работающие со строками Delphi:
| функция IntToStr(N: Integer): String Преобразует целое число N в строку. |
| функция StrToInt(S: String): Integer Преобразует строку S в целое число. |
| функция FloatToStr(X: Extended): String Преобразует число с плавающей точкой X в строку. |
| функция StrToFloat(S: String): Extended Преобразует строку S в число с плавающей точкой. |
Процедуры и функции преобразования дат и времени
Сначала собственно функции, предоставляющие информацию о текущих дате и времени:
| функция Now: TDateTime Возвращает текущую дату и время. |
| функция Date: TDateTime Возвращает текущую дату. |
| функция Time: TDateTime Возвращает текущее время. |
Далее, функции, работающие с составляющими даты и времени (год, месяц, число, день недели, часы, минуты, секунды и даже миллисекунды):
| функция DayOfWeek(Date: TDateTime): Integer Возвращает текущий номер дня недели: 1 - воскресенье, 7 - суббота. |
| процедура DecodeDate(Date: TDateTime; var Year, Month, Day: Word) Разбивает дату Date на год - Year, месяц - Month и день - Day. |
| процедура DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word) Разбивает время Time на час - Hour, минуты - Min, секунды - Sec и миллисекунды - MSec. |
| функция EncodeDate(Year, Month, Day: Word): TDateTime Объединяет год - Year, месяц - Month и день - Day в значение типа TDateTime. |
| функция EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime Объединяет час - Hour, минуты - Min, секунды - Sec и миллисекунды - MSec в значение типа TDateTime. |
Наконец, собственно, функции, переводящие дату и время из формата TDateTime в строчный формат:
| функция DateTimeToStr(DateTime: TDateTime): String Преобразует дату и время DateTime в строку. |
| функция DateToStr(Date: TDateTime): String Преобразует дату Date в строку. |
| функция TimeToStr(Time: TDateTime): String Преобразует время Time в строку. |
Следующие функции работают с параметрами возвращаемой строки. Функции с приставкой Ansi работают в том числе и с кириллическими символами. Если символы в строках предполагаются исключительно латинские, то можно использовать аналогичные функции, но без приставки Ansi:
| функция AnsiLowerCase(const S: String): String Возвращает строку S, преобразованную к нижнему регистру. |
| функция AnsiUpperCase(const S: String): String Возвращает строку S, преобразованную к верхнему регистру. |
| функция Length(const S: String): Integer Возвращает количество символов в строке S. |
| функция Trim(const S: String): String Удаляет из строки S начальные и завершающие пробелы и управляющие символы. |
| функция TrimLeft(const S: String): String Удаляет из строки S начальные пробелы и управляющие символы. |
| функция TrimRight(const S: String): String Удаляет из строки S завершающие пробелы и управляющие символы. |
Следующие функции сравнивают две строки между собой:
| функция AnsiCompareStr(const S1, S2: String): Integer Сравнивает две строки S1 и S2 с учётом регистра символов. Возвращает значение <0 если S1<S2, 0 если S1=S2, >0 если S1>S2 |
| функция AnsiCompareText(const S1, S2: String): Integer Сравнивает две строки S1 и S2 без учёта регистра символов. Возвращает значение <0 если S1<S2, 0 если S1=S2, >0 если S1>S2 |
Следующие функции осуществляют поиск в текущей строке подстроки, вставляют, удаляют или заменяют подстроку:
| функция Pos(Substr: String; Str: String): Integer Возвращает позицию (индекс) первого вхождения Substr в строке Str. Если Substr нет в Str, возвращает 0. |
| функция Insert(Source: String; var S: String; Index: Integer): Integer Вставляет строку Source в строку S, начиная с номера символа, равного Index |
| процедура Delete(var S: String; Index, Count: Integer) Удаляет из строки S подстроку, начинающуюся с номера символа, равного Index, и содержащую до Count символов. |
| функция StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): String Заменяет в строке S подстроку OldPattern на строку NewPattern с учётом флага TReplaceFlags. Для работы с этой функцией нужно создать переменную типа TReplaceFlags - это множество, и включить в него одно или оба значения из следующих: rfReplaceAll - будут заменены все вхождения. Если это значение не будет включено во множество, то будет заменено только первое вхождение; rfIgnoreCase - замена будет без учёта регистра символов. Если это значение не будет включено во множество, то замена будет чувствительна к регистру символов. |
Наконец, функция копирования части строки:
| функция Copy(S: String; Index, Count: Integer): String Возвращает подстроку строки S, начиная с номера символа, равного Index и содержащую до Count символов. |
Помимо прочего, эту функцию можно использовать для вывода нецелого числа с нужным количеством цифр после запятой. Для этого, сначала получаем строку из числа формата Real, затем находим функцией Pos позицию запятой в этой строке, прибавляем нужное количество и копируем в результат это количество символов. Вот готовая функция:
function RealToStr(X: Real; Count: Integer): String; //Count - количество цифр после запятой
var S: String;
N: Integer;
begin
S:=FloatToStr(X); //после запятой - длинная последовательность цифр
//DecimalSeparator - константа, содержащая истинный разделитель целой и дробной частей числа N:=Pos(DecimalSeparator, S); //позиция запятой в строке
//вычисляем длину строки с нужным количеством знаков после запятой:
if N=0 //если в строке нет запятой - это целое число, и
then N:=Length(S) //тогда просто выводим это число
else N:=N+Count; //иначе вычисляем длину строки
Result:=Copy(S, 1, N); //копируем часть строки в результат
end;
Или вот, к примеру, текст модуля, обеспечивающего ввод в компонент Edit только чисел.
Для определённости в примерах будем считать, что
Когда мы изучали простые операции со строками, то рассматривали конкатенацию строк с помощью оператора +. Но объединить две строки можно и функцией
которая возвращает «сумму» двух строк:
Для сравнения строк вместо операторов отношения можно использовать следующие функции.
Обе функции сравнивают строки s1 и s2. Первая - с учётом регистра букв (прописные/строчные), вторая - без учёта.
Эти функции возвращают значение
0, если строки равны;
Их нельзя применять к русским словам, поэтому лучше пользоваться функциями:
которые одинаково хорошо работают и с латинскими, и с русскими буквами.
Теперь перейдём к процедурам и функциям, которые выполняют со словами более сложные действия.
Довольно часто нужно преобразовать все буквы слова либо к верхнему, либо к нижнему регистру. Если слова состоят только из латинских букв, то можно использовать функции:
Первая переводит слова в нижний регистр (строчные буквы), вторая - в верхний (прописные буквы). Для русских ( и для латинских ) букв годятся функции :
Функция AnsiLowerCase (S1) вернёт строку «смородина».
Функция AnsiUpperCase (’смородина’) вернёт строку «СМОРОДИНА».
Чаще других в программах применяют функции для преобразования целых чисел в строку:
Например, IntToStr (1234) вернёт строку «1234».
Для действительных чисел тоже имеется подобная функция
Если вы хотите узнать, как десятичное число записывается в 16-ричной системе счисления, примените к нему функции:
Например, IntToHex (12 34, 8) вернёт строку «000004D2», а IntToHex (2009, 4) - строку «07D9».
Второй параметр - Digits - задаёт число цифр в 16-ричном числе.
При вводе данных из файла или некоторых компонентов вместо числа мы получаем строку символов. И хотя она состоит из цифр, это не число. В этом случае поможет функция
Причём строка S может содержать не только десятичное, но и 16-ричное число.
Например, функции StrToInt(’$07D9’) и StrToInt(’2009’) вернут одно и то же число 2009.
Однако эта функция «опасна»: если в строке обнаружится хотя бы один неверный символ, возникнет ошибка. Если у вас есть обоснованные сомнения в правильности строки, лучше обратиться к надёжной функции
Она возвращает TRUE, если строка преобразована в число без ошибок, и FALSE, если с ошибками. Переменная Value (в нашем примере i) хранит число.
В примере строка '$07D9s' содержит неверный символ «s», поэтому функция вернёт FALSE и строку печатать не нужно (на самом деле значение переменной i будет равно 2009, так как функция успеет конвертировать первые символы строки - до первой «нецифры»).
Так же можно использовать и процедуру:
V - переменная целого или действительного типа.
Code - переменная целого типа, в которой возвращается номер ошибочного символа в строке. Если таких символов нет, то значение этой переменной будет равно нулю.
В результате выполнения этого примера будет напечатано число 2009.
Этот код также напечатает число 2009, но значение переменной i будет равно не нулю, как в первом случае, а 6, так как шестой символ строки не является 16-ричной цифрой.
Аналогичные функции для вещественных чисел:
В начале и/или конце строки могут присутствовать ненужные пробелы. От них легко избавиться , применив функции
Первая удаляет начальные пробелы, вторая - конечные, третья - и те, и другие. Эти функции возвращают новую строку - уже без пробелов.
Узнать длину строки (число символов в ней) можно с помощью функции
Например , Length (S1) вернёт 9, а Length(S2) - 7.
Ну, а теперь - самые интересные процедуры и функции!
Удаляем часть строки S от символа номер Index:
Здесь Count - число удаляемых символов.
Например, после выполнения процедуры:
строка si будет иметь значение «РОДИНА».
А после процедуры delete(s2,5,3); строка s2 будет урезана до «ПАРА».
Если значение переменной Index меньше единицы или больше длины строки, то строка останется без изменений. Ничего не случится со строкой и если Count меньше единицы.
Если же Count больше, чем число символов в строке, начиная с Index, то будут удалены все символы до конца строки.
Процедура Insert действует противоположно - она вставляет подстроку Substr в строку Dest после символа номер Index:
Например, после выполнения процедуры insert (’З’, s1,6); строка s1 превратится в смешное слово «СМОРОЗДИНА».
А процедура insert (’КА’, s2,8); позволит нам насладиться неологизнеологизмом «ПАРАШЮТКА».
Если же мы не хотим портить исходную строку, как это делает процедура Delete, то можем создать новую строку, вырезав из любой строки нужный нам кусок:
Например, строка s примет значение «ПАРА» после выполнения функции s:=copy(s2,1,4);
Обратите внимание: чтобы получить то же самое слово, что и в примере с delete(s2,5,3);, мы указали другие значение параметров в вызове функции!
Функция copy (s1,4,9) вернёт в переменную s слово «РОДИНА».
И последняя функция находит позицию подстроки substr в строке str. function Pos(const substr: string; const str: string): Integer;
Если в строке искомая подстрока встречается несколько раз, то первый вызов функции Pos вернёт позицию первого вхождения, после чего поиск нужно продолжить со следующей позиции. Например, в слове ФЕЛЬДФЕБЕЛЬ так можно найти обе «ели».
Добавление скобок при вызове процедур и функций без параметров уже давно не является новинкой в Delphi, тем не менее, эта возможность мало известна. Эту возможность оценят по достоинству те программисты, которым приходится работать на двух языках (C++ и Delphi), так как им не нужно будет постоянно помнить о разнице в синтаксисе при вызове процедур и функций в разных языках. В Delphi оба варианта, приведенные ниже, считаются корректными.
Возможность перегрузки
Впервые концепция перегрузки процедур и функций была реализована в Delphi 4. Она позволяет иметь несколько различных процедур и функций с одинаковыми именами, но с разными списками параметров. Такие процедуры и функции должны быть описаны с применением директивы overload.
procedure Test (I: integer); overload;
procedure Test (S: string); overload;
procedure Test (D: double); overload;
При вызове процедуры Test, Delphi сама решит, какую из трех процедур необходимо выполнить, в зависимости от передаваемого ей параметра. Но нужно отметить, что это не самая безопасная возможность языка. Применение перегружаемых процедур и функций может стать неиссякаемым источником трудноуловимых ошибок в программе. Поэтому пользуйтесь этой возможностью осторожно.
Передача параметров
Pascal позволяет передавать параметры в функции и процедуры либо по значению, либо по ссылке. Передаваемый параметр может иметь любой встроенный или пользовательский тип либо являться открытым массивом. Параметр также может быть константой, если его значение в процедуре или функции не меняется.
Передача параметров по значению
Этот режим передачи параметров применяется по умолчанию. Если параметр передается по значению, создается локальная копия данной переменной, которая и предоставляется для обработки в процедуру или функцию. Посмотрите на следующий пример:
procedure Test(s: string);
При вызове указанной процедуры будет создана копия передаваемой ей в качестве параметра строки s, с которой и будет работать процедура Test. При этом все внесенные в строку изменения никак не отразятся на исходной переменной s.
Однако это не относится к объектам. Например, если в функцию передается переменная (а точнее экземпляр объекта) TStringList, то в данном случае произойдет передача по ссылке (даже если это не указано явно). Этот способ передачи является у большинства самым излюбленным, но в тоже время является и самым не практичным, т.к. для выполнения метода выделяется дополнительная память для создания точной копией передаваемой переменой. Для решения этой проблемы следует использовать один из способов описанных ниже.
Передача параметров по ссылке
Pascal позволяет также передавать параметры в функции или процедуры по ссылке — такие параметры называются параметрами-переменными. Передача параметра по ссылке означает, что функция или процедура сможет изменить полученные значения параметров. Для передачи параметров по ссылке используется ключевое слово var, помещаемое в список параметров вызываемой процедуры или функции.
procedure ChangeMe(var x: longint);
begin
x := 2; // Параметр х изменен вызванной процедурой
end;
Вместо создания копии переменной x, ключевое слово var требует передачи адреса самой переменной x, что позволяет процедуре непосредственно изменять ее значение.
Передача параметров констант
Если нет необходимости изменять передаваемые функции или процедуре данные, можно описать параметр как константу. Ключевое слово const не только защищает параметр от изменения, но и позволяет компилятору сгенерировать более оптимальный код передачи строк и записей. Вот пример объявления параметра-константы:
procedure Test(const s: string );
Передача открытых массивов
Открытый массив параметров позволяет передавать в функцию или процедуру различное количество параметров. В качестве параметров можно передать либо открытый массив элементов одинакового типа, либо массивы констант различного типа. В приведенном ниже примере объявляется функция, которой в качестве параметра должен передаваться открытый массив целых чисел.
function AddEmUp(A: array of integer): integer;
В открытом массиве можно передавать переменные, константы или выражения из констант.
Для получения информации о фактически передаваемом массиве параметров в функции или процедуре могут использоваться функции High, Low и SizeOf.
Object Pascal также поддерживает тип array of const, который позволяет передавать в одном массиве данные различных типов. Синтаксис объявления функций или процедур, использующих такой массив для получения параметров, следующий:
procedure WhatHaveIGot( A: array of const );
Вызвать объявленную выше функцию можно, например, с помощью такого оператора:
procedure WhatHaveIGot( ['Text', 10, 5.5, @WhatHaveIGot, 3.14, true, 'c'] );
При передаче функции или процедуре массива констант все передаваемые параметры компилятор неявно конвертирует в тип TVarRec. Тип данных TVarRec объявлен в модуле System следующим образом:
PVarRec = ^TVarRec;
TVarRec = record
case Byte of
vtInteger: (VInteger: Integer; VType: Byte);
vtBoolean: (VBoolean: Boolean);
vtChar: (VChar: Char);
vtExtended: (VExtended: PExtended);
vtString: (VString: PShortString);
vtPointer: (VPointer: Pointer);
vtPChar: (VPChar: PChar);
vtObject: (VObject: TObject);
vtClass: (VClass: TClass);
vtWideChar: (VWideChar: WideChar);
vtPWideChar: (VPWideChar: PWideChar);
vtAnsiString: (VAnsiString: Pointer);
vtCurrency: (VCurrency: PCurrency);
vtVariant: (VVariant: PVariant);
vtInterface: (VInterface: Pointer);
vtWideString: (VWideString: Pointer);
vtInt64: (VInt64: PInt64);
end;
Поле VType определяет тип содержащихся в данном экземпляре записи TVarRec данных и может принимать одно приведенных значений.
Поскольку массив констант способен передавать данные разных типов, это может вызвать определенные затруднения при создании обрабатывающей полученные параметры функции или процедуры. В качестве примера работы с таким массивом рассмотрим реализацию процедуры WhatHaveIGot, которая просматривает элементы полученного массива параметров и выводит их тип.
procedure WhatHaveIGot( A: array of const );
var
i: integer;
TypeStr: string;
begin
for i := Low(A) to High(A) do
begin
case A[i].VType of
vtInteger : TypeStr := 'Integer';
vtBoolean : TypeStr := 'Boolean';
vtChar : TypeStr := 'Char';
vtExtended : TypeStr := 'Extended';
vtString : TypeStr := 'String';
vtPointer : TypeStr := 'Pointer';
vtPChar : TypeStr := 'PChar';
vtObject : TypeStr := 'Object';
vtClass : TypeStr := 'Class';
vtWideChar : TypeStr := 'WideChar';
vtPWideChar : TypeStr := 'PWideChar';
vtAnsiString : TypeStr := 'AnsiString';
vtCurrency : TypeStr := 'Currency';
vtVariant : TypeStr := 'Variant';
vtInterface : TypeStr := 'Interface';
vtWideString : TypeStr := 'WideString';
vtInt64 : TypeStr := 'Int64';
end;
ShowMessage( Format( 'Array item %d is a %s', [i, TypeStr] ) );
end;
end;
Значения параметров по умолчанию
В Delphi есть одна очень полезная возможность — использование значений параметров по умолчанию. Она позволяет установить принимаемое по умолчанию значение параметра процедуры или функции. Это значение будет использоваться в тех случаях, когда вызов процедуры или функции производится без указания значения данного параметра. В объявлении процедуры или функции принимаемое по умолчанию значение параметра указывается после знака равенства, следующего после его имени. Поясним это на следующем примере:
procedure HasDefVal( s: string; i: integer = 0 );
Подобное объявление означает, что процедура HasDefVal может быть вызвана двумя путями. В первом случае — как обычно, с указанием обоих параметров:
procedure HasDefVal( 'Hello', 26 );
Во втором случае можно задать только значение параметра s, а для параметра i использовать значение, установленное по умолчанию:
procedure HasDefVal( 'Hello' );
- Параметры, имеющие значения по умолчанию, должны располагаться в конце списка параметров. Параметр без значения по умолчанию не должен встречаться в списке после параметра, имеющего значение по умолчанию.
- Значения по умолчанию могут присваиваться только параметрам обычных типов, указателям или множествам.
- Значение по умолчанию может передаваться только по значению либо с модификатором const. Оно не может быть ссылкой или нетипизированным параметром.
function Add( I1, I2: integer ): integer;
begin
Result := I1 + I2;
end;
Предположим также, что исследования показали целесообразность добавления в программу возможности сложения трех чисел. Однако замена имеющейся функции функцией сложения трех чисел приведет к тому, что вам придется переправлять немало текста, который перестанет компилироваться из-за внесения в функцию еще одного параметра. Однако при использовании значений параметров по умолчанию проблема решается легко и просто. Достаточно изменить объявление функции так, как показано ниже.
function Add( I1, I2: integer; I3: integer = 0 ): integer;
begin
Result := I1 + I2 + I3;
end;
Директива запрещает вызов функций как процедур (с игнорированием возвращаемого результата). По умолчанию этот режим включен (). Так вот, запомните, использование переменной Result недопустимо при сброшенном флажке опции Extended Syntax, расположенном во вкладке Compiler диалогового окна Project Options, или при указании директивы компилятора .
В каждой функции языка Objecl Pascal существует локальная переменная с именем Result, предназначенная для размещения возвращаемого значения. Кроме того, вернуть значение из функции можно также путем присвоения значения переменной, имеющей то же имя, что и данная функция. Это стандартный синтаксис языка Pascal, сохранившийся от его предыдущих версий. При использовании в теле функции переменной с ее именем не забывайте, что существуют большие отличия в обработке этого имени — все зависит от того, где она расположена — в левой части оператора присвоения или же в любом другом месте текста функции. Если имя функции указано в левой части оператора присвоения, то предполагается, что назначается возвращаемое функцией значение. Во всех других случаях предполагается, что осуществляется рекурсивный вызов этой функции.
Процедура и функция — это ключевые понятия в любом языке программирования, без которых не обходится ни одна серьезная программа. И поэтому очень важно иметь полное понимание о механизме их работы.
Читайте также: