[Помогите!] Delete в Delphi

[hiddenf]

Добрый день, хотел бы спросить, как удалять определенные цифры из edit функцией delete, тоесть, мне нужно удалить: ,5 в edit, очень прошу вас помочь!

[NebesaBag]

var s:string;
...
s:= StringReplace(Edit1.Text, ',5', '', [rfReplaceAll, rfIgnoreCase]);
Edit1.Text:=s;

Как ты мог понять код ищет сочетание ',5' и заменяет его на пустоту ''


А если delete, то могу предположить, что так:

repeat
s:=Edit1.Text;
delete(s,pos(',5',s),2);
Edit1.Text:=s;
until pos(',5',Edit1.Text)=0

Может быть так, не проверял сработает или нет.

[hiddenf]

Цитата: Сообщение от NebesaBag var s:string; ... s:= StringReplace(Edit1.Text, ',5', '', [rfReplaceAll, rfIgnoreCase]); Edit1.Text:=s; Как ты мог понять код ищет сочетание ',5' и заменяет его на пустоту '' А если delete, то могу предположить, что так: repeat s:=Edit1.Text; delete(s,pos(',5',s),2); Edit1.Text:=s; until pos(',5',Edit1.Text)=0 Может быть так, не проверял сработает или нет.

Спасибо большое, очень помогли!