关于Edit问题，帮忙看以下。

Question

窗体中有Button和Edit控件，在Button的onClick事件中添加代码
var
  w,x:real;
begin
  w:=strrofloat(edit1.Text);
  if w<=50 then
    x:=0.25*w
  else 
    if <=100 then
      x:=0.35*w
    else
      x:=0.45*w
  panel2.caption:=format  //略
  edit1.selstart:=0;
  edit1.sellength:=length(edit1.text);上述中edit1.selstart:=0;
  edit1.sellength:=length(edit1.text);
有什么作用啊，感觉好像没有程序也一样运行的。

Answer 1

我认为这两句的作用就是让 Edit1 中的内容为全部选中状态。
没有程序也一样运行，是这样的。

Answer 2

应该这样子用：
  w:=strtofloat(edit1.Text);
  if w<=50 then
    x:=0.25*w
  else
    if w<=100 then
      x:=0.35*w
    else
      x:=0.45*w;  edit1.Text:= floattostr(x);
  edit1.SetFocus;
  edit1.selstart:=0;
  edit1.sellength:=length(edit1.text);你再看看 edit1 里面的内容，有变化吧