delphi中如何将系统时间取出来使用阿 ？

Question

另外有一个问题，如何将系统的datetime值取出来，并附给一新的变量
Query2.params[1].value:=now; //  操作时间怎么会出现
[Error] Unit21.pas(81): Missing operator or semicolon

Answer 1

Query4.SQL.Add('update mobilehouse set mobadjustprice=' + maskedit1.text + ', opdate=opdate1' + datetimetostr(now) + ' where mobtypeid=''' + query3.Fields[0].AsString + '''') ;为什么会出现query4.field '52:33'is a unknowm type其中opdate为表中datetime类型的字段opdate1为一个等于opdate1:=now()；（注，系统时间）的变量

Answer 2

Query4.SQL.Add('update mobilehouse set mobadjustprice=' + maskedit1.text + ', opdate=opdate1' + datetimetostr(now) + ' where mobtypeid=''' + query3.Fields[0].AsString + '''') ;
建议这样写：
Query4.SQL.Add('update mobilehouse set mobadjustprice=：vmaskedit1, opdate=:vopdate1 where mobtypeid=...
Query4.ParamByName['vmaskedit1'].AsString := maskedit1.text;
Query4.ParamByName['vmaskedit1'].AsDateTime :=vopdate1;
vopdate1 应该为 TDateTime类型