Функция Pos

C помощью функции Pos Вы можете осуществить поиск некоторого фрагмента в строке. Если заданный фрагмент в строке присутствует, то функция возвращает номер позиции, с которой он начинается. Если фрагмент не найден, то функция возвращает нуль.

Program DemoFunctionPos;

Var

Word: string;

SearchWord: string[20];

Position: Byte;

Begin

Word:= 'фирма Microsoft';

writeln(Word); {выводится текст 'фирма MICROSOFT'}

writeln ('Введите искомый текст ');

readln (SearchWord);

Position:= Pos(SearchWord, Word);

if Position <> 0

then

begin

write ('Фрагмент <',SearchWord,'> содержится в строке <',Word);

writeln ('>, начиная с позиции ',Position);

end

else

writeln('Фрагмент <',SearchWord,'> не содержится в строке <',Word); End.

Примечание. Функция Pos требует полного совпадения искомого фрагмента и фрагмента строки, в которой производится поиск. Причем большие и маленькие буквы считаются различными символами.

Функция Concat

Функция Concat (Str1,Str2,...,StrN) выполняет конкатенацию (или сцепление) строк Str1,Str2,...,StrN в том порядке, в каком они указаны в списке параметров. Сумма символов всех сцепленных строк не должна превышать 255.

Program DemoFunctionConcat;

Var

Word: string;

Word1, Word2: string[20];

Begin

Word1:= 'фирмы ';

Word2:= 'Microsoft';

Word:= Concat('Компьютеры ',Word1,Word2);

writeln(Word); {выводится текст 'Компьютеры фирмы Microsoft'}

End.