[patch_done] program crash for Lazarus and MySql on query

[ism]

for testing branch

Discussion

http://zeos.firmos.at/viewtopic.php?t=3151

Code: Select all

Index: src/dbc/ZDbcMySqlUtils.pas
===================================================================
--- src/dbc/ZDbcMySqlUtils.pas	(revision 888)
+++ src/dbc/ZDbcMySqlUtils.pas	(working copy)
@@ -370,14 +370,23 @@
     Result := stDouble
   else if TypeName = 'CHAR' then begin
     if IsUnicodeField then
-    	Result := stUnicodeString
+    {$IFDEF FPC}
+      Result := stString
+    {$ELSE}
+      Result := stUnicodeString
+    {$ENDIF}
     else
      Result := stString;
   end else if TypeName = 'VARCHAR' then begin
     if IsUnicodeField then
-    	Result := stUnicodeString
+    {$IFDEF FPC}
+      Result := stString
+    {$ELSE}
+      Result := stUnicodeString
+    {$ENDIF}
     else
      Result := stString;
+
   end
   else if TypeName = 'VARBINARY' then
     Result := stBytes

[ism]

sorry , i updated first post

[mdaems]

SVN rev. 903.