Удалить символ ' в строке

[Aleksandr]

Вот этим кодом удаляю любые символы, а как удалить символ '

if S1[Length(S1)] = 'символ' then
Delete(S1, Length(S1), 1);

[Serge_Bliznykov]

Вам только последний символ проверить/удалить нужно?! (просто код плохой==незащищённый у Вас ;( )

вариант 1 (стандартный)

if S1[Length(S1)] = '''' then

вариант 2 (пижонско-хакерский ).

if S1[Length(S1)] = #27 then

выбирайте любой.

[Человек_Борща]

if S1[Length(S1)] = #27 then

оО
С чегобы это ' стал #27, всегда был #39. Я чего-то не знаю?

[Stilet]

Я чего-то не знаю?

А это такая военная хитрость, кагбэ намекающая на преимущества первого варианта

[Serge_Bliznykov]

Сообщение от Человек_Борща

if S1[Length(S1)] = #27 then

оО
С чегобы это ' стал #27, всегда был #39. Я чего-то не знаю?

ААА! позор мне!
39 в десятичной, 27 в hex!!!
доллар я потерял!

вариант 2 надо было написать или так

  if S1[Length(S1)] = #$27 then

или так:

  if S1[Length(S1)] = #39 then

Сообщение от Stilet

А это такая военная хитрость, кагбэ намекающая на преимущества первого варианта

ага. хитро замаскированный баг!

[Stilet]

вариант 2 надо было написать или так

А лучше так:

  if (s1<>'') and (S1[Length(S1)] = '''') then

Ибо юникодовые делфи начнут тупить (возможно)