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

In this forum all bug reports concerning the 6.x branch will be gahtered. You have the possibility to track the bug fix process.

Moderators: EgonHugeist, mdaems

domi.papin
Fresh Boarder
Fresh Boarder
Posts: 13
Joined: 12.09.2006, 11:15

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

Postby domi.papin » 10.10.2006, 10:09

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);

User avatar
mdaems
Zeos Project Manager
Zeos Project Manager
Posts: 2766
Joined: 20.09.2005, 15:28
Location: Brussels, Belgium
Contact:

Postby mdaems » 10.10.2006, 20:07

Hi Dominique,

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

Mark


Return to “Bug Reports”

Who is online

Users browsing this forum: No registered users and 1 guest