FieldByName('WG_WEIGHT').AsString //0,99
FieldByName('WG_WEIGHT').AsString //99

function TRecordsCache.GetFieldData( RecordNo,FieldOffSet,StrIndex:integer;
var RecordDat a:Pointer ):Pointer;
var
BlockIndex:integer;
PosInBlock:integer;
begin
// Used in Locate

if Assigned(FMapRecords) then
RecordNo :=InternalRecordNo(RecordNo);

BlockIndex:=(RecordNo-1) div FRecInBlock;
if BlockIndex<FBlocks.Count then
begin
PosInBlock:=(RecordNo-1-BlockIndex*FRecInBlock)*FRecordSize;
RecordDat a:=FBlocks.List^[BlockIndex];
Inc(PByte(RecordData),PosInBlock);
end
else
raise EMemManagerError.Create('Can''t read FieldData .Incorrect RecordNo');
;
if (StrIndex=-1) or (FStrFieldCount=0) then
begin
{Inc(PByte(RecordData),FieldOffSet);
Result:=RecordData;
}
Result:=RecordData;
Inc(PByte(Result),FieldOffSet);
end
else
begin
if RecordNo>FStringData.Capacity then
raise EMemManagerError.Create('Can''t read FieldData .Incorrect RecordNo');
Result:=FStringData.PValue[StrIndex,RecordNo-1];
end;

end;

unit pFIBScripter;

procedure TpFIBScripter.SetTransaction(const Value: TpFIBTransaction);
begin
  FExternalTransaction:= Value;
  if Value<>nil then
  begin
   FExternalTransaction.DefaultDatabase:=FDatabase;
   FQuery.Transaction:=FExternalTransaction;
  end
  else
   FQuery.Transaction:=FTransaction;
end; 

  object datasetDMG: TpFIBDataSet
    SelectSQL.Strings = (
      'SEL ECT * FR OM DMG'
      'WHERE 1 = 0')
    Transaction = GemsDataModule.trnsDataReadOnly
    Database = GemsDataModule.dbData
    Left = 53
    Top = 40
  end

procedure TClaimsPrintData.PopulateData(dmgID: Largeint; ADatabase: TFIBDatabase; ATransaction: TFIBTransaction);
begin
  SiMain.EnterMethod(lvDebug, Self, 'PopulateData');

  with DMPrintClaims do
  begin
    try
      CleanData; // nothing data related here

      InitializeDatasets(ADatabase, ATransaction); // See this one below

      datasetDMG.SelectSQL.Clear;
      datasetDMG.SelectSQL.Add('SELECT * FR OM DMG');
      datasetDMG.SelectSQL.Add('WHERE DMG_ID = :DMGID');
      datasetDMG.Params.ParamByName('DMGID').AsInt64 := dmgID;

      PopulateMemoryDataSet(datasetDMG, mdsDMG);
…
…
…

procedure TDMPrintClaims.InitializeDatasets(ADatabase: TFIBDatabase; ATransaction: TFIBTransaction);

  procedure DoDataset(ADataset: TFIBDataSet);
  begin
    SiMain.EnterMethod(lvDebug, 'DoDataset');

    SiMain.LogBoolean(lvDebug, ADataset.Name, ADataset.Active);

    ADataset.Close;
    ADataset.Database := ADatabase;
    ADataset.Transaction := ATransaction;
    ADataset.UpdateTransaction := ATransaction;

    SiMain.LeaveMethod(lvDebug, 'DoDataset');
  end;

begin
  SiMain.EnterMethod(lvDebug, Self, 'InitializeDatasets');

  DoDataset(datasetDMG);
  DoDataset(datasetDMGEXTENDED);
  DoDataset(datasetTRNS);
  DoDataset(datasetMCARERMT);

  SiMain.LeaveMethod(lvDebug, Self, 'InitializeDatasets');
end;

procedure TDMPrintClaims.PopulateMemoryDataSet(ADataset: TFIBDataset; AMemDataset: TdxMemData);
begin
  SiMain.EnterMethod(lvDebug, Self, 'InitializeDatasets');

  ADataset.Open; // This is wh ere it will crash once in a Blue Moon
  try
    AMemDataset.Close;
    AMemDataset.Open;

    SiMain.LogDataSet(lvDebug, ADataset.Name, ADataset);
    AMemDataset.CopyFromDataSet(ADataset);
    SiMain.LogDataSet(lvDebug, AMemDataset.Name, AMemDataset);
  finally
     ADataset.Close;
  end;
  AMemDataset.First;

  SiMain.LeaveMethod(lvDebug, Self, 'InitializeDatasets');
end;