xpin2013
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может не совсем сюда. А и куда писать не известно.
Про FIBPlus для XE7, рекомендую обновиться, и если не поможет, то мой патч. (обнаружено для CalcFields)
Если в файле FIBDataSet.pas находим
Код: {$IFDEF D_XE3}
procedure TFIBCustomDataSet.SetFieldData(Field: TField; Buffer: TValueBuffer);
begin
SetFieldData(Field,Pointer(Buffer))
end;
{$ENDIF}
procedure TFIBCustomDataSet.SetFieldData(Field: TField; Buffer: Pointer);
...
if (Field is TFIBStringField) then
else
Move(Buffer^, TmpBuff[1], Field.DataSize); |
это не совсем верно в XE7, длина Buffer <= Field.DataSize.
мой патч (делаю только пока для строк).
Код:
else
begin
L := Field.DataSize;
{$IFDEF D_XE3}
if Field is TStringField then
L := Length(TValueBuffer(Buffer));
{$ENDIF}
Move(Buffer^, TmpBuff[1], L);
end; |
|
Всего записей: 291 | Зарегистр. 16-01-2014 | Отправлено: 15:30 02-03-2015 | Исправлено: xpin2013, 16:14 02-03-2015 |
|
