Модератор: Модераторы
В FPC размер TStringField ограничен 8192 символами. Т.е. необходимо такие поля мапить
в MEMO. Для этого необходимо установить TADQuery.FormatOptions.MaxStringSize <= 8192.
В Delphi много лет назад отменили проверку на максимальную длину.
А в FPC осталась, хотя FPC & FCL это что-то посередине между D5 и D6.
А у них в файл DB.PAS никто не лазил с 2001 года. А Delphi VCL за это время ушла далеко.
Вот вам и совместимость.
скалогрыз писал(а): ... насмехаться сильнее всех будут дельфины
Думаю, что даже не я один скалогрыз писал(а):может баг-репорт написать?! мол - делфи несовместимость )))
скалогрыз писал(а):насмехаться сильнее всех будут дельфины
Код: Выделить всё
unit DB;
...
dsMaxStringSize = 8192;
...
TStringFieldBuffer = Array[0..dsMaxStringSize] of Char;
Код: Выделить всё
//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;
Код: Выделить всё
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;
А у них в файл DB.PAS никто не лазил с 2001 года. А Delphi VCL за это время ушла далеко.
Вот вам и совместимость.
Sergei I. Gorelkin писал(а): ...просто так константой в одном месте его не снимешь.
Attid писал(а):наших бьют
