Процедура Delete

Основы программирования
Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее...

Процедура Delete в Паскале удаляет часть строки. Синтаксис:

 
procedure Delete(var s : shortstring;
                 index : SizeInt;
                 count : SizeInt);

procedure Delete(var s : RawByteString;
                 index : SizeInt;
                 count : SizeInt);

procedure Delete(var s : UnicodeString;
                 index : SizeInt;
                 count : SizeInt);

procedure Delete(var s : shortstring;
                 index : SizeInt;
                 count : SizeInt);

Процедура Delete удаляет символы из строки s, начиная с позиции, указанной в параметре index. Количество удаляемых символов указано в параметре count.

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

Если, например, в строке 10 символов, и вы укажете начальную позицию 5, а количество символов 10 (то есть 5 + 10 = 15 - это больше длины строки), то ничего страшного не произойдёт. Просто строка будет обрезана, начиная от позиции, указанной в параметре index.

Также ничего страшного не произойдёт, если в параметре index вы укажете значение, которое превышает размер строки. В этом случае из строки не будут удалены никакие символы.

Пример программы:

program deleteproc;

var s   : string = 'Hello! WORLD!';

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  WriteLn(s);       //Выведет Hello! WORLD!

  Delete(s, 7, 6);  //Удаляем пробел и WORLD
  WriteLn(s);       //Выведет Hello!!

  WriteLn('The End. Press ENTER...');
  ReadLn;
end.

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты