[菜鸟请教]在输入时间的时候一个奇怪的问题

Question

Query1.SQL.Clear;
Query1.SQL.Add('insert into expend.db ');
Query1.SQL.Add('values(:datetimes)');
Query1.Params[0].asdatetime:=datetimepicker1.Date+datetimepicker2.time;
query1.ExecSQL;
ShowMessage('插入成功！');
为什么在把该纪录插入到数据库以后，时间全部变成了2017-4月，而且时间都是下午三点的？？奇怪阿
另个问题：在输入的时候判断输入给该edit.text的字符串型是数字而不是其他英文字母之类的从而停止程序

Answer 1

另个问题：在输入的时候如何判断输入给该edit.text的字符串型是数字而不是其他英文字母之类的从而停止程序

Answer 2

跟你用的数据库有关吧，
判断Edit是数字而不是其它英文字母可以自己编一个函数
function IsNumeric(tmp_str: string): Boolean;
var
  i: double;
begin
  Result := True;
  try
    i := StrToFloat(Tmp_Str);
  except
    Result := False;
  end;
end;