Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Delete
Delete
|
procedure Delete ( var Source : string; StartChar : Integer; Count : Integer ) ; |
Процедура (Unit System)
|
Удаляет часть символов из строки
|
Описание:
|
Процедура Delete удаляет последовательность символов вплоть до символа Count из строки источника, начиная с позиции StartChar. Процедура вырезает символы из строки и после этого сдвигает символы справа на их место. Ошибка не произойдет, если Count превышает реальную длину строки. Первый символ строки = 1. |
Пример кода: Удаление символов из середины строки
|
var Source : string; begin Source := '12345678'; Delete(Source, 3, 4); // Удаление 3-го, 4-го, 5-го и 6-го символов ShowMessage('Source теперь : '+Source); end;
Результат:
|
Source теперь : 1278 |
Примечание:
|
Если StartChar находится перед первым символом, или после последнего символа Источника (Source), то никакие символы не будут удалены. Delete(myString, 5, MaxInt); является эквивалентным и будет лучше выполнено: SetLength (myString, 4); |