From b47a0d02fd550288e26df0a598c2cb0f1575b3fd Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 4 Jun 2006 19:51:52 +0000
Subject: [PATCH] + Renamed Action Parameter of TDatasetErrorEvent; Avoids
 conflicts in methods in forms in objfpc mode

git-svn-id: trunk@3799 -
---
 fcl/db/db.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index b0ea165d71..cbbabd2853 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -900,7 +900,7 @@ type
 
   TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;
   TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError;
-    var Action: TDataAction) of object;
+    var DataAction: TDataAction) of object;
 
   TFilterOption = (foCaseInsensitive, foNoPartialCompare);
   TFilterOptions = set of TFilterOption;