Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Delete
Процедура
Удаляет часть символов из строки System unit
  procedure Delete ( var Source : string; StartChar : Integer; Count : Integer ) ;
Описание
Процедура Delete удаляет последовательность символов вплоть до символа Count из строки источника, начиная с позиции StartChar. Процедура вырезает символы из строки и после этого сдвигает символы справа на их место.

Ошибка не произойдет, если Count превышает реальную длину строки.

Первый символ строки = 1.
Примечания
Если StartChar находится перед первым символом, или после последнего символа Источника (Source), то никакие символы не будут удалены.

Delete(myString, 5, MaxInt);

является эквивалентным и будет лучше выполнено:

SetLength (myString, 4);
Похожие команды
Concat  Соединяет несколько строк в одну

Copy  Создает копию части строки или части массива

Insert  Вставляет строку в другую строку

Move  Копирует байты данных из источника в место назначения

StringOfChar  Создает строку из одного символа, повторенного много раз

StringReplace  Заменяет одну или несколько подстрок, найденных в заданной строке

WrapText  Добавьте перенос строки в строку, чтобы имитировать перенос слов

Trim  Удаляет начальные и конечные пробелы в строке

TrimLeft  Удаляет начальные пробелы в строке

TrimRight  Удаляет конечные пробелы в строке

 
Пример кода : Удаление символов из середины строки
var
  Source : string;

begin
  Source := '12345678';
  Delete(Source, 3, 4);    // Удаление 3-го, 4-го, 5-го и 6-го символов
  ShowMessage('Source теперь : '+Source);
end;

Source теперь : 1278
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия