| # | 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; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |