Question

delphi中如何限制edit中只能删除指定字符

比如edit的值为:'1,2,3,4',如何限制edit只能删除',4'或',3,4'或'2,3,4',而且必须从后往前删除。

Answer 1

backspace,delete,鼠标右键有相应的选项，选中按ctrl+X
以上都可以达到删除的目的，全部都要控制到

Answer 2

var
s1:string;

procedure TForm1.edt1Change(Sender: TObject);
var
s:string;
begin
s:=edt1.Text;
if Length(s1)>length(s) then
begin
if ((Length(s1)-length(s)) mod 2 =0 ) and (pos(s,s1)<>0) then
begin
S1:=edt1.Text;
end
else
begin
edt1.Text:=S1;
end;
end
else
begin
S1:=edt1.Text;
end;
end;