наших бьют

[Attid]

наших бьют

в кратце

В FPC размер TStringField ограничен 8192 символами. Т.е. необходимо такие поля мапить
в MEMO. Для этого необходимо установить TADQuery.FormatOptions.MaxStringSize <= 8192.

В Delphi много лет назад отменили проверку на максимальную длину.
А в FPC осталась, хотя FPC & FCL это что-то посередине между D5 и D6.

А у них в файл DB.PAS никто не лазил с 2001 года. А Delphi VCL за это время ушла далеко.
Вот вам и совместимость.

кто нибуть по FCL знает есть ли\будут движения в этом направлении ?

[скалогрыз]

может баг-репорт написать?! мол - делфи несовместимость )))

возможность подачи баг-репортов, а так же мануальное их измнение, это основное отличие fpc от делфи

насмехаться над fpc будут долго... что самое грустное, насмехаться сильнее всех будут дельфины
как говорил ганди (и что у редхата написано в главном офисе):
First they ignore you, then they laugh at you, then they fight you, then you win.

[Bupyc]

... насмехаться сильнее всех будут дельфины

Я не смеюсь, я использую Думаю, что даже не я один

[Attid]

может баг-репорт написать?! мол - делфи несовместимость )))

как я понял дело тут не в совместимости а в том что без шаманства из БД не вытащишь строку в 32000 символа.

или я не так понял =/ ?

[Max Rusov]

насмехаться сильнее всех будут дельфины

Ну, учитывая, во что выродилась Delphi и сколько лет нас обламывают с 64-х разрядной версией - нам сейчас не до смеха.

[Logo]

Вот оно, коварство:

Код: Выделить всё

unit DB;
...
dsMaxStringSize = 8192;
...
TStringFieldBuffer = Array[0..dsMaxStringSize] of Char;


Наверное придется фиксить. У кого какое мнение?
--------------

Если NativeFormat = False то размер должен быть не ограничен. В принципе хорошая идея, если строки малые, то зачем тратить время на динамическое выделение памяти.

Код: Выделить всё

//dataset.inc

procedure TDataSet.SetFieldData(Field: TField; Buffer: Pointer;
  NativeFormat: Boolean);

Var
  AStatBuffer : Array[0..dsMaxStringSize] of Char;
  ADynBuffer : pchar;

begin
  if NativeFormat then
    SetFieldData(Field, Buffer)
  else
    begin
    if Field.DataSize <= dsMaxStringSize then
      begin
      DataConvert(Field,Buffer,@AStatBuffer,True);
      SetfieldData(Field, @AStatBuffer);
      end
    else
      begin
      GetMem(ADynBuffer,Field.DataSize);
      try
        DataConvert(Field,Buffer,@AStatBuffer,True);
        SetfieldData(Field, @AStatBuffer);
      finally
        FreeMem(ADynBuffer);
        end;
      end;
    end;
end;


WideString по идее должна быть не ограничена, но она у меня на PostgreSQL обрезается.

Код: Выделить всё

procedure TWideStringField.SetAsWideString(const aValue: WideString);
const
  NullWideChar : WideChar = #0;
var
  Buffer : PWideChar;
begin
  if Length(aValue)>0 then
    Buffer := PWideChar(@aValue[1])
  else
    Buffer := @NullWideChar;
  SetData(Buffer, False);
end;


Добавлено спустя 12 минут 16 секунд:

А у них в файл DB.PAS никто не лазил с 2001 года. А Delphi VCL за это время ушла далеко.
Вот вам и совместимость.

Бред. Довольно часто патчится. Если заголовок "Copyright (c) 1999-2000 by Michael Van Canneyt" не меняется, то это не значит, что не вносятся изменения.

[Sergei I. Gorelkin]

В Дельфи все не так просто, там разные типы полей для разных интерфейсов БД. Стандартный TStringField имеет ограничение, но при работе с Interbase вместо него используется TIBStringField, в котором ограничения нет.
Ограничения явно связаны со свойствами используемых БД, они могут быть разными, просто так константой в одном месте его не снимешь.

[Logo]

...просто так константой в одном месте его не снимешь.

Расширить можно, но не снять ограничение.
В FPC, в принципе, тоже для каждой СУБ свои модули.

[Climber]

наших бьют

А вы поменьше троллей читайте
sql.ru конечно хороший форум, но потроллить там любят почти все... Лично я например, поковырявшись в lazaruse, на delphi вернуться так и не смог... Да и в свете последних событий вероятность того, что Delphi окончательно загнется, как мне кажется, выше вероятности того, что окончательно загнется fpc...