Справочник по Delphi

Delete, процедура

Синтаксис


procedure Delete(var Str : String; StartingIndex, Count : Integer);

Описание

Процедура Delete удаляет Count символов из строки, начиная с номера StartingIndex. Если Count превышает количество символов, оставшихся в строке, Delete удаляет весь остаток строки, начиная с номера StartingIndex.

Ошибки

Первый символ в строке имеет номер 1.
Если StartingIndex не положителен или больше длины строки, Delete не изменяет содержимое строки.
Если Count больше, чем количество символов после StartingIndex, удаляется весь остаток строки.
Для удаления символов в конце строки можно воспользоваться процедурой SetLength, которая работает быстрее, чем более универсальная процедура Delete.

Советы и приемы

Первый символ в строке имеет номер 1.
Если StartingIndex не положителен или больше длины строки, Delete не изменяет содержимое строки.
Если Count больше, чем количество символов после StartingIndex, удаляется весь остаток строки.
Для удаления символов в конце строки можно воспользоваться процедурой SetLength, которая работает быстрее, чем более универсальная процедура Delete.

Пример


//Удаление буквы устройства из начала строки пути.
procedure RemoveDriveLetter(var Path : String);
begin
  //Сначала убедимся, что буква устройства присутствует в начале строки
  if (Length(Path) >= 2) and (Path[2] = ':') then //удаляем два первых символа
    Delete(Path,1,2);
end;

Смотрите также

Функция Copy, процедуры Insert, SetLength, SetString.

Учебник по языку Pascal Лабораторные работы по программированию Справочник

Нет комментариев.

Оставить комментарий: