Mail

В этот день много лет назад...
9 мая. В 1855 году (169 лет назад) - Одно из первых упоминаний о самиздате в России. Евгений Якушкин пишет декабристу Ивану Пущину: "Появилась рукописная литература... Как хотите, а это замечательное явление - общественное мнение силится изо всех сил высказаться - и высказывается иногда в это подземной литературе чрезвычайно умно".

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;