@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; |
@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; |
Этот пример проверяет наличие символа "а" в строке. Если символ найден, то в строке есть символы, если нет - то символов в строке нет.