Procházet zdrojové kódy

+ added TDataset.Tempbuffer again (undid revision 830)

git-svn-id: trunk@1566 -
joost před 20 roky
rodič
revize
412cd65c52
2 změnil soubory, kde provedl 7 přidání a 0 odebrání
  1. 6 0
      fcl/db/dataset.inc
  2. 1 0
      fcl/db/db.pp

+ 6 - 0
fcl/db/dataset.inc

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

+ 1 - 0
fcl/db/db.pp

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