procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);var DotPos,Len:integer;begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as ...……
若DBGrid.DataSource.DateSet为ADOQuery1,这样试一下:if ADOQuery1.Modified then ...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if ADODataSet1.Modified ...……
function Lagrange(x, y:ArrayDouble; N: integer; x1: Double): double;var I, J: Integer; a: Double;begin Result := 0; for i := 0 to N - 1 do begin a := 1; for J := 0 to N - 1 do begin……