[link-oln]

Доброго времени суток!
Помогите пожалуйста решить следующую проблему:
Мне нужно чтобы при одном условии из Edit'а удалялся последний символ, но у меня процедура Delete удаляет всё что только можно но не его! У меня это выглядит вот так:

Код:

procedure TForm1.EditChange(Sender: TObject);
begin
DelOp := Edit.Text;
if copy(Edit.Text, length(Edit.Text), 1) = '+' then
  delete(DelOp, length(DelOp), 1);
Edit.Text := DelOp;
Edit.SelStart := lenght(delOp);
end;

Что не так?

[Assistant]

Код:

delete(DelOp, length(DelOp)-1, 1);

[link-oln]

Сообщение от Assistant

Код:

delete(DelOp, length(DelOp)-1, 1);

Пробовал, всё равно не выходит... А если больше чем -1 то удаляет всё кроме последних символов число которых равно тому что мы отнимаем от length...

[ryderx34]

Насколько я понял суть в том чтобы в Edit нельзя было ввести символ '+'? Проще сделать это в OnKeyPress:

Код:

if Key = '+' then Key := #0;

[TOJluK]

Сообщение от ryderx34

Насколько я понял суть в том чтобы в Edit нельзя было ввести символ '+'? Проще сделать это в OnKeyPress:

Код:

if Key = '+' then Key := #0;

ctrl+c, ctrl+v никто не отменял ))

[Black Raider]

Код:

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

[ryderx34]

Сообщение от TOJluK

ctrl+c, ctrl+v никто не отменял ))

Удаление последнего символа тоже не спасёт от Ctrl+V, юзер же может вставить ненужный символ и не в конец. Тогда уж что-то вроде этого делать:

Код:

procedure TForm1.EditChange(Sender: TObject);
begin
  Edit.Text := StringReplace(Edit.Text, '+', '', [rfReplaceAll]);
  Edit.SelStart := Lenght(Edit.Text);
end;

[Janom]

Попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:String;
begin
//Так только если плюс последний символ:
//если в конце строки два или более плюса,
//то удалит только один последний из-за этого
//процедуру надо будет вызывать несколько раз.
if Edit1.Text<>'' then
  begin
    s:='';
    if (Edit1.Text[Length(Edit1.Text)]='+') then
      begin
        For i:= 1 to Length(Edit1.Text)-1 do s:=s+Edit1.Text[i];
        Edit1.Text:=s;
      end;
  end;
//Так если в строке вообще есть плюсы:
{
if Edit1.Text<>'' then
  begin
    s:='';
    For i:= 1 to Length(Edit1.Text) do
        if Edit1.Text[i]<>'+' then s:=s+Edit1.Text[i];
    Edit1.Text:=s;
  end;
}
end;