Merged revisions 11514,11516,11518-11521,11523,11528,11535,11551,11553,11555,11557,11562,11564,11571,11588,11619,11621-11622,11628,11664-11667,11670,11683,11685,11689-11692,11694-11696,11698,11701-11702,11705-11707,11712-11718,11723-11726,11728-11729,11733-11737,11778,11780-11781,11785,11810,11822,11831,11836,11848,11872,11876-11878,11881-11883,11889,11891-11895,11899-11902,11920-11925,11931-11932,11935,11938,11941,11986,11992,12014,12018,12041-12042,12044,12046,12051-12053,12055,12058,12063,12067-12072,12074,12076,12079-12081,12083-12084,12086,12089-12091,12095-12098,12100-12105,12111-12113,12115-12116,12123-12124,12126-12127,12132-12137,12139-12140,12144-12151,12161,12164-12165,12172,12177-12195,12197,12206-12210,12212,12236,12246-12252,12259,12262 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
  r11514 | joost | 2008-08-05 23:09:46 +0200 (Tue, 05 Aug 2008) | 1 line
  
   * Implemented TDataset.AppendRecord and InsertRecord + test (bug 11450)
........
  r11516 | joost | 2008-08-06 11:14:48 +0200 (Wed, 06 Aug 2008) | 1 line
  
   * Forgot to commit db.pas in r11514
........
  r12262 | joost | 2008-11-29 10:13:10 +0100 (Sat, 29 Nov 2008) | 1 line
  
   * Use TField.Assignvalue to set the fieldvalues in DoInsertAppend
........

git-svn-id: branches/fixes_2_2@12293 -

packages/fcl-db/src/base/db.pas

@@ -1139,6 +1139,7 @@ type
     Procedure UnRegisterDataSource(ADatasource : TDatasource);
     Procedure UpdateFieldDefs;
     Procedure SetFieldDefs(AFieldDefs: TFieldDefs);
+    procedure DoInsertAppendRecord(const Values: array of const; DoAppend : boolean);
   protected
     procedure RecalcBufListSize;
     procedure ActivateBuffers; virtual;

packages/fcl-db/src/base/dbconst.pas

@@ -94,6 +94,7 @@ Resourcestring
   SDBCreateDropFailed      = 'Creation or dropping of database failed';
   SMaxIndexes              = 'The maximum amount of indexes is reached';
   SMinIndexes              = 'The minimum amount of indexes is 1';
+  STooManyFields           = 'More fields specified then really exist';
 // These are added for Delphi-compatilility, but not used by the fcl:
   SFieldIndexError         = 'Field index out of range';
   SIndexFieldMissing       = 'Cannot access index field ''%s''';