Mail

В этот день много лет назад...
19 декабря. В 1876 году (149 лет назад) - Иван Сытин начинает собственное дело. Сытин крупнейший дореволюционный издатель. Его фирма перед революцией выпускала почти четверть издаваемых в стране книг, самую распространенную газету "Русское слово", популярнейший журнал "Нива", еще календари, учебники, детские книги, дешевые, так называемые народные издания. Созданное Сытиным предприятие было высокоэффективным, недаром американцы называли Сытина русским Фордом.

Turbo Pascal Documentation

Функция Pos

     Функция: Производит поиск подстроки в строке.
     Описание: Pos(подстрока, s : string)
     Тип результата: Байт (byte).
     Примечания: Параметры "подстрока" и s являются  выраже-
ниями строкового типа. Данная функция ищет подстроку, задан-
ную параметром "подстрока", в строке s  и  возвращает  целое
значение,  являющееся  позицией  первого символа подстроки в
строке s. Если подстрока не найдена, то  функция  возвращает
значение 0.
     Пример:

var
   s : string;
  begin
   s := '    123.5';
{ преобразует пробелы в нули }
   while Pos(' ',s) > 0  do
     s[Pos(' ',s)] := '0';
   end;