Как проверить, что строка равна одной кавычке (') в 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 с одинарной кавычкой. Если они равны, то выводится сообщение "Строка равна одной кавычке", в противном случае выводится сообщение "Строка не равна одной кавычке".