[fpc-devel] [Fwd: TMemDataset : pb & suggestions]

[Oro06]

it seems that using move func give better results.

replacing this

function TMemDataset.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;
begin
  Result:=PRecInfo(Buffer+FRecInfoOffset)^.BookmarkFlag;
end;

by this :

function TMemDataset.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;
var ARecInfo: TMTRecInfo;
begin
  Move(PRecInfo(Buffer+FRecInfoOffset)^,ARecInfo,FRecInfoSize);
  Result:=ARecInfo.BookmarkFlag;
end;

same for TMemDataset.SetBookmarkFlag...

procedure TMemDataset.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);
var APRecInfo: PRecInfo;
    ARecInfo: TMTRecInfo;
begin
  //Unaligned(PRecInfo(Buffer+FRecInfoOffset)^).BookmarkFlag := Value;
  APRecInfo:=PREcInfo(Buffer+FRecInfoOffset);
  Move(APRecInfo^,ARecInfo,FRecInfoSize);
  ARecInfo.BookmarkFlag:=Value;
  Move(ARecInfo,APRecInfo^,FRecInfoSize);
end;

regards
or