Как проверить строку на наличие символов в delphi?

Пользователь

от fidel , в категории: Другие , год назад

Как проверить строку на наличие символов в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от Programmer , год назад

@fidel 

Добрый день!

Если стоит задача проверки наличия определенных символов в строке то можно воспользоваться функцией pos

Пример:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
var i: integer;
      str: string;
      symbul: string;
begin
	str:= 'некоторая строка в которой ищем символ';
	symbul:= 'а'; // символ который ищем в строке
	i:= pos(symbul, str);
	if i > 0 then
		ShowMessage('Символ есть в строке') else
		ShowMessage('Символа нет в строке');
end;