делфи

Question

делфи

псевдоним Ученик (212), на голосовании 9 лет назад

мне нужно что-бы если в edit1 появлялась к примеру цифра 1, то она удалялась, тоесть автоудаление определенного текста

Дополнен 9 лет назад

можно и кнопку

Дополнен 9 лет назад

фишка в том что текст может быть 123124125 а удалятся должны только еденицы

Answer 1

По нажатию на кнопку?

вот как получилось

Сама процедура:

procedure TForm1.Button1Click(Sender: TObject);
var
s,p:string;
i,n: byte;
begin
s:=edit1.text;
n:=length(s);

for i:=1 to n do begin
if s[i]=inttostr(1) then
Delete(s,i,1);
end;
edit1.text:=s; ShowMessage('S теперь : '+s);
end;

Answer 2

Обрабатываешь событие onchange (вроде так называется) . В нем пишешь условие, если edit1.text = "1" , то edit1.clear. Вроде как-то так.