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

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

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

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

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

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

@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;

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

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

@fidel 

Для проверки строки на наличие символов можно использовать функцию Length, которая возвращает количество символов в строке. Если длина строки равна нулю, значит символов в строке нет. Пример:

1
2
3
4
5
6
7
8
9
var
  str: string;
begin
  str := 'Пример строки';
  if Length(str) > 0 then
    ShowMessage('В строке есть символы')
  else
    ShowMessage('В строке нет символов');
end;


Также можно использовать функцию Pos, которая ищет первое вхождение символа в строку, и если он не найден, возвращает ноль. Пример:

1
2
3
4
5
6
7
8
9
var
  str: string;
begin
  str := 'Пример строки';
  if Pos('а', str) > 0 then
    ShowMessage('В строке есть символы')
  else
    ShowMessage('В строке нет символов');
end;


Этот пример проверяет наличие символа "а" в строке. Если символ найден, то в строке есть символы, если нет - то символов в строке нет.