[patch_done] program crash for Lazarus and MySql on query
Posted: 07.05.2011, 15:03
for testing branch
Discussion
http://zeos.firmos.at/viewtopic.php?t=3151
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