From cb18638372caab254ae1d4f583f708a1233d0396 Mon Sep 17 00:00:00 2001
From: rosenfield <rosenfield@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Tue, 13 May 2008 19:39:29 +0000
Subject: [PATCH] Bugfix: Delphi's DB.pas::TWideStringField.SetAsWideString()
 puts a PWideChar into the buffer before calling this, so deserializing it as
 a PWideString is probably wrong.

---
 components/zeosdbo/src/component/ZAbstractRODataset.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/zeosdbo/src/component/ZAbstractRODataset.pas b/components/zeosdbo/src/component/ZAbstractRODataset.pas
index 6252e5ec..ac0aa91a 100644
--- a/components/zeosdbo/src/component/ZAbstractRODataset.pas
+++ b/components/zeosdbo/src/component/ZAbstractRODataset.pas
@@ -1296,7 +1296,7 @@ begin
       { Processes widestring fields. }
       else if Field.DataType = ftWideString then
       begin
-        RowAccessor.SetUnicodeString(ColumnIndex, PWideString(Buffer)^);
+        RowAccessor.SetUnicodeString(ColumnIndex, PWideChar(Buffer));
       end
       { Processes all other fields. }
       else if (Field.FieldKind = fkData) and (Field.DataType = ftString) and