Разное
Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>
    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Что такое хук (hook)?
   Категория: Приложение
  Тpансляция ошибок в BDE
   Категория: Базы данных
  Упаковка ZIPTV
   Категория: Компоненты
  Последний день месяца
   Категория: Базы данных
  Узнать запущен ли сервис FireBird
   Категория: Интернет и Сети
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  Undo в memo
   Категория: Компоненты
  Сохранение странички в файл из TWebBrowser
   Категория: Интернет и Сети
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети

Delphi - Справочник: Insert

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Insert
procedure Insert ( const InsertStr : string; var TargetStr : string; Position : Integer ) ;
Процедура (Unit System)
Вставляет строку в другую строку
Описание:
Процедура Insert вставляет одну строку (InsertStr) в другую строку (TargetStr) в заданной позиции (Position)

Символы строки TargetStr, начиная с символа указанного в Position, смещаются вправо.

Теперь длина TargetStr является суммой длины этих двух строк. Для вставки в начало строки TargetStr установите значение Position в 1 или меньше.

Чтобы добавить в конец строки TargetStr, задайте значению Position номер последнего символа TargetStr.
Пример кода: Вставка в середину строки 

var
  Target : string;
begin
  Target := '12345678';
  Insert('-+-', Target, 3);
  ShowMessage('Target : '+Target);
end;

Результат:
Target : 12-+-345678
Примечание:
Первый символ строки имеет индекс 1

Массивы начинаются с 0 индекса.

  << Вернуться