对于时间 可formatdatetime()   PDatestr := formatDateTime('mm''/''dd''/''yyyy', Pdate);
   DeleteQuery := TQuery.Create(nil);
   DeleteQuery.DatabaseName := 'csdn';
   DesSQL := Format('select * from price where TDate < ''%s''', [PDateStr]);
   DeleteQuery.SQL.Add(DEsSQL);
   DeleteQuery.ExecSQL;
   DeleteQuery.Free;也可用参数
   
     SQLText := 'Insert Into EntityReg (price,date_buy, invoiceNo) Values (:Price, :Date_buy, :InvoiceNo)';
     Query1.ParamByName('Date_buy').AsdateTime := Date;
搜索以下,有很多讨论。