Código Delphi [-] campo := query1.FieldByName(campo).Asinteger; query1.Edit; query1.FieldByName('campo').Asstring := FormatFloat('000000',campo+1); query1.Post;
campo := query1.FieldByName(campo).Asinteger; query1.Edit; query1.FieldByName('campo').Asstring := FormatFloat('000000',campo+1); query1.Post;