如何让Edit1中内容输入一个清空一个，用另外变量记录输入内容？？

Question

如何让Edit1中内容输入一个清空一个，用另外变量记录输入内容？？
求代码，我在onkeypress中记录，总是缺少一位数

Answer 1

那就试试keyDown

Answer 2

Edit1.PasswordChar := #13;
直接访问Edit1.Text就可以

Answer 3

这个是送分？unit Unit1;interfaceuses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    procedure edt1Change(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  sText: string;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(sText);
end;procedure TForm1.edt1Change(Sender: TObject);
begin
  sText := sText + edt1.Text;
  edt1.Text := '';
end;end.

Answer 4

procedure TForm1.edt1Change(Sender: TObject); //数据发生变化事件！
begin  
  edt2.Text=edit1.txt: //edit2中就是你想要的数据 
  edit1.Text := ''; //得到想要的数据后 清空EDIT1中的内容
end; 

Answer 5

楼上说完了……输入的时候用变量记录再把edit置空。。