* rename arguments "Text: string" to "aText: string" to prevent name clash in objfpc mode/Lazarus db callbacks AND a very ugly potential bug which happens if you forget to rename the variable in those callbacks :D (I just spent an hour on it damnit!)

git-svn-id: trunk@10568 -

packages/fcl-db/src/base/db.pas

@@ -228,9 +228,9 @@ type
   TFieldKinds = Set of TFieldKind;
 
   TFieldNotifyEvent = procedure(Sender: TField) of object;
-  TFieldGetTextEvent = procedure(Sender: TField; var Text: string;
+  TFieldGetTextEvent = procedure(Sender: TField; var aText: string;
     DisplayText: Boolean) of object;
-  TFieldSetTextEvent = procedure(Sender: TField; const Text: string) of object;
+  TFieldSetTextEvent = procedure(Sender: TField; const aText: string) of object;
   TFieldRef = ^TField;
   TFieldChars = set of Char;