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

Question

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

Answer 1

你的写法不对，你应该队Delphi的语法多了解一些再上手写程序：
这个子程序已经传进来了一个Key参数，这就是按键，代码是if Key=#13 then

Answer 2

同意　jabmoon(刺月)　
所有的语言应该都有这点共性的，一个变量肯定要有他最初出现的地方

Answer 3

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 4

最后一个不用加了吧
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 5

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

Answer 6

不太明白你的问题，不过用Query试试。