[Janom]

Сообщение от Black Raider

Код:

if trim(edit1.text)[length(trim(edit1.Text))]='+' then
edit1.Text:=copy(edit1.Text,0,length(trim(edit1.Text))-1);

Только после этого нужно каретку в конец переводить... я вот такую функцию испльзую:

Код:

Function SimbolDel(AEdit:TEdit; Sim:Char):boolean;
var i:integer;
    s:String;
begin
if AEdit.Text<>'' then
  begin
    s:='';
    For i:= 1 to Length(AEdit.Text) do
        if AEdit.Text[i]<>Sim then s:=s+AEdit.Text[i];
    AEdit.SetFocus;
    AEdit.SelStart:=Length(AEdit.Text);
    AEdit.Text:=s;
  end;
end;
...
procedure TForm1.Edit1Change(Sender: TObject);
begin
SimbolDel(TEdit(Sender), '+'); //вызов функции
end;