Цитата:
Сообщение от link-oln
Нет, мне нужно просто чтобы неможно было 2 плюса вместе поставить... А встречаться в строке он мог сколько угодно раз...
|
Код:
Function SimbolDel(AEdit:TEdit; Sim:Char; Rp:Byte):boolean;
var i:integer;
s:String;
d,z:ShortString;
begin
if AEdit.Text<>'' then
begin
s:='';
d:='';
z:='';
for i:=1 to Rp do z:=z+Sim;
For i:= 1 to Length(AEdit.Text) do
begin
if AEdit.Text[i]=Sim then d:=d+AEdit.Text[i] else d:='';
if d<>z then s:=s+AEdit.Text[i];
end;
AEdit.SetFocus;
AEdit.SelStart:=Length(AEdit.Text);
AEdit.Text:=s;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
SimbolDel(TEdit(Sender),'+',2);
end;
параметр Rp - это недопустимое кол-во символов Sim подряд