Mail

В этот день много лет назад...
14 декабря. В 1503 году (522 года назад) - Родился Мишель де Нотрдам, или Нострадамус (Nostradamus)(14.12.1503- 2.07.1566), лейб-медик Карла IX, получил известность как автор "Центурий", содержавших предсказания грядущих событий европейской истории. Нострадамус принадлежал к древнему иудейскому роду Иссахар, которому приписывался особый пророческий дар. В 22 года он поступил в университет в Монпелье. В 1546 в Эксе его застала чума. Будучи уже к тому времени искусным фармацевтом, он изобрел противочумное средство. Его первая жена и двое детей скончались от неизвестной болезни. Потрясенный смертью близких, Нострадамус отправился в путешествие по Италии и Франции, став странствующим врачом. В 1548 он женился вторично, этот брак оказался удачным, и жена подарила ему шестерых детей.

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;