Функция Copy – копирует из заданной строки или массива символов подстроку с определенной программистом позиции и определенное количество символов. Функция Copy входит в состав библиотеки System и имеет три входных параметра — текстовую строку, c которой будет произведено копирование части текста, стартовый и кол-во символов для копирования.
Синтаксис функции:
Copy(S; Index, Count: Integer): string; // возвращает строку
Copy(S; Index, Count: Integer): array; // возвращает одномерный массив символов
где:
S – строка-источник;
Index – номер символа в строке с которого начнется копирование.
Count – задает количество копируемых символов(элементов) строки.
Пример. Скопируем из строки «Эта_веселая_жизнь!» 5 символов с позиции 3.
Смотрим пример:
procedure TForm1.Button1Click(Sender: TObject);
const str=‘Эта_веселая_жизнь!’;
var sMsg:string;
begin
sMsg:=copy(str,3,5);
ShowMessage(sMsg);
end;
Результат: «а_вес»