Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Последний день месяца
Категория: Базы данных
Категория: Базы данных
Получение списка всех сетевых дисков из Delphi
Категория: Интернет и Сети
Категория: Интернет и Сети
Поиск по EasyTable
Категория: Базы данных
Категория: Базы данных
Корректное колесико мыши
Категория: Приложение
Категория: Приложение
К-во рабочих дней в месяце
Категория: Математика
Категория: Математика
Число строкой с предстоящими нулями
Категория: Текст и строки
Категория: Текст и строки
Удалить лишние символы из строки
Категория: Текст и строки
Категория: Текст и строки
Wav файл внутри exe-файла
Категория: Файловая система
Категория: Файловая система
Создание ярлыка на Рабочем столе
Категория: Приложение
Категория: Приложение
Округление в большую сторону
Категория: Математика
Категория: Математика
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); |