Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



LastDelimiter

передаёт последнюю позицию символа в строке

|| function LastDelimiter ( const Delimiters, Source : string ) : Integer;

Описание:

    Delphi функция LastDelimiter возвращает позицию в строке, в которой символ встречается в последний раз.

    Если символ не обнаружен то возвращается 0, если обнаружен то число обозначающие позицию этого символа в строке.

Пример кода:

var
   source, find : string;
   position : Integer;

begin
   // Create a string
   source := '12345678901234567890';

   // Find the position of the last 1
   position := LastDelimiter('1', source);
   ShowMessage('The last 1 is at '+IntToStr(position));

   // Find the position of the last 2, 4 or 6
   position := LastDelimiter('246', source);
   ShowMessage('The last 2, 4 or 6 is at '+IntToStr(position));
end;

Результат выполнения:

The last 1 is at 11
The last 2, 4 or 6 is at 16