用字符串处理一个文本输入框?

Question

新手问题  怎么用字符串做一个处理来表达文本框或者输入框的值  var
    str:string;
  begin
       str:=edit1.text;
  end;
这种表达是错误的啊

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  str : String ;
begin
  str := str + Key ;
end;
这里的Str时时 等于Edit里的值
不知道 楼主是不是这个意思 

Answer 2

不要见笑哈。
  就是将edit1.text所输入的值赋给str字符串。怎么处理？

Answer 3

？？？？？？？？？？？？？？？？？？？
    没人了？
 还有个问题就是使用messagebox或showmessages怎么显示变量的值？例如上面的str？THANK YOU！

Answer 4

就是将edit1.text所输入的值赋给str字符串。这样的话，你的代码没错啊，str:=edit1.text;ShowMessage(str);

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  str:string;
begin
  str:=edit1.text;
  showmessage(str);
end;

Answer 6

    好像我的是对的哦。郁闷。但是show出来的值怎么少一个。EG: 123 SHOW： 12  strange!!!! 

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := edit1.Text;
  showmessage(str);
end;删了重写写一下看看,可能有非法的隐含字符.

Answer 8

估計楼主是不是写在edit的press或者down下了，如果写在keyup下或者某個button下，就沒問題了