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
 



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