edit1.Text:=edit1.Text - ПОСЛЕДНИЙ ВВЕДЁННЫЙ СИМВОЛ;

← →
Валет (2002-05-24 18:37) [0]

Как объяснить компу.

По событию Edit1Change

edit1.Text:=edit1.Text -ПОСЛЕДНИЙ ВВЕДЁННЫЙ СИМВОЛ;

C уважением , Валет

← →
Song (2002-05-24 18:46) [1]

procedure TForm1.Edit1Change(Sender: TObject); begin With TEdit(Sender) Do Text:=Copy(Text,1,Length(Text)-1); end;

или так:

procedure TForm1.Edit1Change(Sender: TObject); Var S:String; begin S:=Edit1.Text; Delete(S,Length(S),1); Edit1.Text:=S; end;

или так: :-))

procedure TForm1.Edit1Change(Sender: TObject); begin Keybd_event(VK_BACK,0,0,0); Keybd_event(VK_BACK,0,KEYEVENTF_KEYUP,0); end;

← →
McSimm (2002-05-24 18:56) [2]

Это если последний введенный символ в конце. Но он может быть в любом месте. И не один (paste)

← →
MaximatorVeter (2002-05-24 22:01) [3]

Сравнивать текущее значение свойства с предыдущим.

← →
Tahion (2002-05-25 13:06) [4]

Можно попробывать определить место каретки в Эдите, а затем удалить символ, что находиться перед ней

← →
rhf (2002-05-25 13:34) [5]

А вам не кажеться, что это бессмысленно - событие onChange возникает когда вы вводите символ, т.е. вы его же и удаляете, а это равносильно тому что вообще ничего не вводить (т.к. сначала onKeyPress а потом уже onChange) ...... или я не прав.........может вы edit програмно изменять собрались или что ....

← →
hp (2002-05-25 15:10) [6]

Я так понимаю, что нужно нечто вроде вот такого:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var c:string;txt:string;
begin
if Key=13 then begin
c:=Copy(Edit1.Text,Length(Edit1.Text),1);
txt:=Edit1.Text;
while Pos(c, Txt)>0 do
Delete(Txt, Pos(c, Txt),1);
Edit1.Text:=Txt;
end;
end;

А вообще-то я согласен с rhf

edit1.Text:=edit1.Text - ПОСЛЕДНИЙ ВВЕДЁННЫЙ СИМВОЛ; Найти похожие ветки