ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBCustomDataSet.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBCustomDataSet.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 57 by tony, Wed Mar 8 11:20:46 2017 UTC

# Line 1089 | Line 1089 | procedure TIBMemoField.SetAsString(const
1089   var s: RawByteString;
1090   begin
1091    s := AValue;
1092 <  if StringCodePage(Value) <> CodePage then
1092 >  if StringCodePage(s) <> CodePage then
1093      SetCodePage(s,CodePage,CodePage<>CP_NONE);
1094    inherited SetAsString(s);
1095   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines