Строки Delphi

Дата публикации

Сегодня речь пойдет о строках. Строки в Delphi, на мой взгляд не менее важны, чем числа. Если Вы решили стать программистом, то без строк никуда. Как говорится «из песни слов не выкинешь».

В этой статье мы рассмотрим то, как можно работать со строками. Изучим основные функции, разберем их на примерах. Примеры будут не сложные, но очень полезные. Также попробуем комбинировать строковые функции.

Для начала покажу как определить строку и присвоить ей значение

var
  str1: String;
begin
  // Зададим значение строке
  str1:='Любая строка, не важно';
end;

Разберемся теперь с функциями обработки строк:

 

Функция Length()

Функция Length() – возвращает количество символов в строке. Выглядит она так:

Function Length(S): Integer;

Передаем один параметр – строку, в результате получаем число символов.

Пример:

  //Выведем на экран длину строки str1
  ShowMessage(InttoStr(Length(str1)));

В примере мы выводим сообщение с длиной строки str1.

 

Функция Copy()

Функция Copy() – функция возвращаем заданный отрывок строки.

function Copy ( str1 : string, Index, Count : Integer ) : string;

  • str1 – строка, из которой мы хотим извлечь часть.
  • Index – порядковый номер начального символа.
  • Count – сколько символов мы хотим извлечь.

Приведу пример и все станет на свои места

// Скопируем часть строки str1 в строку str2, 12 символов, начиная с 6-го
str2:= Copy(str1, 6, 12);
Попробуем скомбинировать с предыдущей функцией
// Скопируем часть строки 1 в строку 2. С 6-го по последний символ
str2:= Copy(str1, 6,Length(str1));

Функция Pos()

Функция Pos() – возвращает позицию одной строки в другой. Так сказать, ищет подстроку в строке. Если что-то находит, то возвращает номер символа начиная с которого началось совпадение.

function Pos ( const str2, str1 : string ) : Integer;

  • str2 – строка, которую ищем.
  • str1 – строка, в которой ищем.

Напишем пример, в котором будем искать вхождение «стр» в str1 и выведем найденное число в сообщении.

// Символ с которого начинается вхождение строки 'стр' в str1
ShowMessage(IntToStr(Pos('стр',str1)));

Процедура Delete()

Процедура Delete() – удаляет часть строки.

procedure Delete ( var Str1 : string; Index : Integer, Count : Integer );

  • str1 – строка из которой удаляем символы.
  • Index – позиция с которой начинаем удалять.
  • Count – сколько символов удаляем

// Удаляем первый символ str2
Delete(str2, 1, 2);
// Удаляем из str2 все, начиная с позиции подстроки 'ро' до конца строки
Delete(str2, Pos('ро',str2), Length(str2));

Процедура Insert()

Процедура Insert() – вставляет одну строку в другую, начиная с указанного символа.

procedure Insert(str2: String; var Str1: String; Index: Integer);

  • str2-страка, которую вставляем.
  • str1-строка, в которую вставляем.
  • Index – позиция, с которой начнется вставка

// вставляем строку str1 в str2 начиная с первого символа
insert(str1, str2,1);
// Вставляем строку str1 в конец str2
insert(str1, str2,Length(str2)+1);

Эти основные функции помогут сделать со строками в delphi любые манипуляции.

Добавить комментарий



Обновить

Wednesday the 17th. icq 486350790
Copyright 2012

©