这个东西怎么和vb不同,我怎么获得enter键信息?

Question

改为：
if Key=#13 then
  begin
  m:=strtofloat(edit4.Text);
  n:=strtofloat(dbedit2.text);
  edit6.Text:=floattostr(m*n);
end;

Answer 1

if key=#13 then
  begin
  m:=strtofloat(edit4.Text);
  n:=strtofloat(dbedit2.text);
  edit6.Text:=floattostr(m*n);
end;

Answer 2

if key=#13 then
  begin  tyr 
  m:=strtofloat(edit4.Text);
except
  showmessage('xxxxx');
  exit ; 
end ;
  try
  n:=strtofloat(dbedit2.text);
except 
  showmessage('xxxxx');
  exit ; end ;
try 
  edit6.Text:=floattostr(m*n);
  except 
  showmessage('xxxxx');
  exit ;   end ;
end; 

Answer 3

最后一个不用加了吧
if key=#13 then
begin
  try 
    m:=strtofloat(edit4.Text);
  except
    showmessage('xxxxx');
  exit ; 
  end;
  try
    n:=strtofloat(dbedit2.text);
  except 
    showmessage('xxxxx');
    exit ; 
  end;
  edit6.Text:=floattostr(m*n);
end; 

Answer 4

还有一个问题,我有一个数据库,是这样的:一个字段对应有多个,
即:id1 23 aa bb
  id1 21 aa bb
我现在想用table来取得所有关于某一个字段的所有信息,如id1,
我用了table1.findfield([xxx]);提示要有index
可在数据库中不能设,因为id1不是唯一
请问我该如何做?

Answer 5

1.:),把form的keyPreview属性设置为true看看，因为delphi中，vcl对消息的派发作了调整！
2.用FiedByName('id1').as...即可