On Monday 16 July 2012 16:50:06 michael.vancann...@wisa.be wrote:
>
> Well, from your code adding the following to the protected section:
>
> Property ValueBuffer : Pointer Read FValueBuffer;
> Property Validating : Boolean Read FValidating ;
>
> Should be enough to remove the need for the TFieldCracker ?
>
Unfortunately no:
"
procedure tmsebufdataset.checkfreebuffer(const afield: tfield);
begin
{$ifdef FPC}{$warnings off}{$endif}
with tfieldcracker(afield) do begin
{$ifdef FPC}{$warnings on}{$endif}
if foffset and 2 <> 0 then begin
freemem(fvaluebuffer);
fvaluebuffer:= nil;
end;
end;
end;
"
Martin
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
