[fpc-devel] Class field reordering

[Martin Schreiber]

On Monday 16 July 2012 16:50:06 michael.vancanneyt at 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