Как заменить последний символ в строке?

[artemavd]

Добрый вечер! Мне нужно заменить самый последний символ в строке. Понимаю и сам, что вопрос вообщем-то простецкий, вертится в голове, но не могу пока поймать решение.
Как бы нужно узнать сначала длину всей строки, потом через +1 заменить последний символ, т.е. как-то так:

  l:=Length(Form1.sEdit4.Text) + 1; //получаю длину строки
  Form1.sEdit4.Text:=StringReplace(Form1.sEdit4.Text,Form1.sEdit4.Text[l],'',[]); //меняю последний самый символ в этой строке

Но данный код ничего не меняте. Длина строки заранее неизвестна и может быть любой. Подскажите где неправильно делаю?

[Аватар]

Так например (при условии, что не пустой s)

s:=Copy(s,1,Length(s)-1)+'a';

или

s[Length(s)]:='в';

[Пепел Феникса]

s:=Edit1.Text;
if (Length(s)<>0) then s[Length(s)]:='a';
Edit1.Text:=s;

устроили тут...

[_-Re@l-_]

Ну типа

s := Edit1.Text;
s[length(s)] := 'a';
Edit1.Text := s;

[artemavd]

Ребят, вы хоть сами пробовали свои варианты? Или просто так написали? Ни один из вариантов не сработал. Не ясен смысл логики ни одного их предложенных вариантов.

[_-Re@l-_]

artemavd, у меня всё работает. Я бросил Edit на форму, и кнопку, и в событие нажатия кнопки выполнял эти действия. Всё работало.

P.S. Мой код небезопасен, в том смысле что он не проверяет длину строки, а вдруг строка пустая.

[artemavd]

_-Re@l-_, да, вот сейчас вижу, что твой код работает). Спасибо. Буду применять его и расширять под свою задачу.
Не понятно почему не работает код с моей строкой. У меня символ, который мне надо удалить (это символ "," без кавычек), несколько раз встречается у меня в строке.
Например, код в приложенном примере строку "Текст,текст," преобразует в "Текст,текст" - то, что нужно. А если строка имеется строка вида ":1,:2,:3," то последняя запятая не убирается. Видимо путаница получается с предыдущими запятыми, которые встречаются в самой строке ранее. Как исправить?

[Пепел Феникса]

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

_-Re@l-_, да, вот сейчас вижу, что твой код работает). Спасибо. Буду применять его и расширять под свою задачу.
Не понятно почему не работает код с моей строкой. У меня символ, который мне надо удалить (это символ "," без кавычек), несколько раз встречается у меня в строке.
Например, код в приложенном примере строку "Текст,текст," преобразует в "Текст,текст" - то, что нужно. А если строка имеется строка вида ":1,:2,:3," то последняя запятая не убирается. Видимо путаница получается с предыдущими запятыми, которые встречаются в самой строке ранее. Как исправить?

s:=Trim(Edit.Text);
if((Length(s)>0)and(s[Length(s)=','))then s:=Copy(s,1,Length(s)-1);
Edit.Text:=s;

[artemavd]

Пепел Феникса, спасибо! Сейчас вроде работает как надо

[Пепел Феникса]

на будущее, будь ласка, говори что надо удалять символ, а не заменять его, ибо это разное.