[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;

[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;

[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);

[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;

[Black Raider]

так вам надо вообще убрать данный символ из строки или все таки последний?

[Janom]

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

так вам надо вообще убрать данный символ из строки или все таки последний?

Он пишет процедуру удаления в onChange, походу дела ему его вообще запретить надо...

[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;

[link-oln]

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

Он пишет процедуру удаления в onChange, походу дела ему его вообще запретить надо...

Нет, мне нужно просто чтобы неможно было 2 плюса вместе поставить... А встречаться в строке он мог сколько угодно раз...

[TOJluK]

Как вариант в onChange для Edit распозновать символы в итоговой строке с позициями +1 и -1

[Janom]

Сообщение от 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 подряд

[Black Raider]

убирает '++' оставляя только один.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
st:string;
begin
repeat
i:=pos('++',Edit1.Text);
st:='';
if i>0 then begin
st:=copy(edit1.Text,i+2,length(edit1.Text)-i);
edit1.Text:=copy(edit1.Text,1,i)+st;
end;
until i=0;
end;