| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Валет ©   (2002-05-24 18:37:00) 

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

По событию Edit1Change

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

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

---

hp   (2002-05-25 15:10:00) [1]

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

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

---

rhf   (2002-05-25 13:34:00) [2]

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

---

Tahion   (2002-05-25 13:06:00) [3]

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

---

MaximatorVeter   (2002-05-24 22:01:00) [4]

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

---

McSimm   (2002-05-24 18:56:00) [5]

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

---

Song   (2002-05-24 18:46:00) [6]

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;

---

Наверх