[bug_fixed] compiling fix for delphi5/6 support (testing b)

[domi.papin]

Hello zeos team,

I have a fix for compiling zeos testing branch under delphi5/6.
Description of bug : ValueFromIndex is a property added to TStringList on delphi7
Here is the svn patch :

Code: Select all

Index: ZPlainMySqlDriver.pas
===================================================================
--- ZPlainMySqlDriver.pas	(revision 108)
+++ ZPlainMySqlDriver.pas	(working copy)
@@ -958,7 +958,11 @@
       if SameText(SERVER_ARGUMENTS_KEY_PREFIX,
                   Copy(Options.Names[i], 1,
                        Length(SERVER_ARGUMENTS_KEY_PREFIX))) then
+{$IFDEF VER140BELOW}
+        TmpList.Add(Options.Values[Options.Names[i]]);
+{$ELSE}
         TmpList.Add(Options.ValueFromIndex[i]);
+{$ENDIF}
     //Check if DataDir is specified, if not, then add it to the Arguments List
     If TmpList.Values['--datadir'] = '' then
        TmpList.Add('--datadir='+EMBEDDED_DEFAULT_DATA_DIR);

[mdaems]

Hi Dominique,

I committed this to the SVN repository (Rev 110). Can somebody confirm this solves the issue?

Mark