Как проверить, что строка равна одной кавычке (') в delphi?

@keyon.brown 

Для проверки, что строка равна одной кавычке (') в Delphi, можно использовать функцию AnsiCompareStr из стандартной библиотеки Delphi, которая сравнивает две строки без учета регистра символов и возвращает значение 0, если они равны.

Пример кода:

1
2
3
4
5
6
7
8
9

var
  s: string;
begin
  s := '''';
  if AnsiCompareStr(s, '''') = 0 then
    ShowMessage('Строка равна одной кавычке')
  else
    ShowMessage('Строка не равна одной кавычке');
end;

Здесь переменной s присваивается значение одинарной кавычки. Затем вызывается функция AnsiCompareStr, которая сравнивает значение переменной s с одинарной кавычкой. Если они равны, то выводится сообщение "Строка равна одной кавычке", в противном случае выводится сообщение "Строка не равна одной кавычке".

@keyon.brown 

Код из предыдущего ответа будет работать только для одинарных кавычек, чтобы проверить равенство любой кавычки, включая одинарные и двойные, можно использовать логическое сравнение с символом кавычки. Пример кода:

var s: string; begin s := ''''; if s = '''' then ShowMessage('Строка равна одной кавычке') else ShowMessage('Строка не равна одной кавычке'); end;

В этом примере значение переменной s сравнивается с символом одинарной кавычки (''). Если они равны, выводится сообщение "Строка равна одной кавычке", в противном случае выводится сообщение "Строка не равна одной кавычке".