der verflixte taschenrechner und die rücktaste

[Sharky]

Zitat von Spider:

Ganz einfach:

Edit1.Undo

Da gibt es aber ein Problem. Wenn Edit1.Text durch das Programm verändert wurde, z.B. durch Edit1.Text := Edit1.Text + '1'; geht Undo nicht.

So kannst Du aber auch das letze Zeichen eines Edits löschen

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  s : String;
begin
  s := Edit1.Text;
  Delete (s,Length(s),1);
  Edit1.Text := s;
end;

Oder mit dem Beispiel von Stanlay