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

 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;

1
2
3
4
5
6
7
8
9

var
  str: string;
begin
  str := 'Пример строки';
  if Length(str) > 0 then
    ShowMessage('В строке есть символы')
  else
    ShowMessage('В строке нет символов');
end;

1
2
3
4
5
6
7
8
9

var
  str: string;
begin
  str := 'Пример строки';
  if Pos('а', str) > 0 then
    ShowMessage('В строке есть символы')
  else
    ShowMessage('В строке нет символов');
end;