Mail

В этот день много лет назад...
26 ноября. В 1580 году (444 года назад) - Гражданская война во Франции завершается признанием права гугенотов на вероисповедание.

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;