Merged revisions 11092-11093 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r11092 | michael | 2008-05-27 19:35:15 +0200 (Tue, 27 May 2008) | 1 line
  
  * Patch from vincent snijders, replacing var with out params
........
  r11093 | michael | 2008-05-27 19:37:00 +0200 (Tue, 27 May 2008) | 1 line
  
  * Var -> Out parameters in tstrings.getnameval
........

git-svn-id: branches/fixes_2_2@11094 -

packages/fcl-db/src/datadict/fpdatadict.pp

@@ -352,7 +352,7 @@ Function IsDictionaryEngineRegistered(AEngine :TFPDDEngineClass) : boolean;
 Procedure RegisterConnectionStringCallback(Const AName: String; CallBack : TGetConnectionEvent);
 Procedure UnRegisterDictionaryEngine(AEngine :TFPDDEngineClass);
 Function  GetDictionaryEngineList(List : TStrings) : Integer;
-Function  GetDictionaryEngineInfo(Const AName : String; Var ADescription,ADBType: String; var ACapabilities : TFPDDEngineCapabilities) : boolean;
+Function  GetDictionaryEngineInfo(Const AName : String; out ADescription,ADBType: String; out ACapabilities : TFPDDEngineCapabilities) : boolean;
 Function  CreateDictionaryEngine(AName : String; AOWner : TComponent) : TFPDDEngine;
 Function IndexOptionsToString (Options : TIndexOptions) : String;
 
@@ -633,7 +633,7 @@ begin
   Result:=GetEngineRegistration(AName).FCallBack;
 end;
 
-Function  GetDictionaryEngineInfo(Const AName : String; Var ADescription,ADBType: String;var ACapabilities : TFPDDEngineCapabilities) : boolean;
+Function  GetDictionaryEngineInfo(Const AName : String; out ADescription,ADBType: String;out ACapabilities : TFPDDEngineCapabilities) : boolean;
 
 Var
   DDEC : TFPDDEngineClass;