+ added TDataset.Tempbuffer again (undid revision 830)

git-svn-id: trunk@1566 -

fcl/db/dataset.inc

@@ -964,6 +964,12 @@ begin
     end;
 end;
 
+Function TDataset.Tempbuffer: PChar;
+
+begin
+  Result := FBuffers[FRecordCount];
+end;
+
 Procedure TDataset.UpdateIndexDefs;
 
 begin

fcl/db/db.pp

@@ -1045,6 +1045,7 @@ type
     procedure SetRecNo(Value: Longint); virtual;
     procedure SetState(Value: TDataSetState);
     function SetTempState(const Value: TDataSetState): TDataSetState;
+    Function Tempbuffer: PChar;
     procedure UpdateIndexDefs; virtual;
     property ActiveRecord: Longint read FActiveRecord;
     property CurrentRecord: Longint read FCurrentRecord;