fpcsrc/tests/test/packages/fcl-db/tdb4.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

program TestMemDs;

{$mode objfpc}{$H+}

uses
  memds,db;

var
   DSet:TMemDataset;

begin
   DSet:=TMemDataset.Create(nil);
   DSet.FieldDefs.Add('NAME',ftString,20);
   DSet.CreateTable;
   DSet.Open;

   DSet.Append;
   DSet.Edit;
   DSet.FieldByName('NAME').Value:='aaa';
   DSet.Post;

   DSet.Append;
   DSet.Edit;
   DSet.FieldByName('NAME').Value:='bbb';
   DSet.Post;

   if Dset.RecordCount<>2 then
     halt(1);
   DSet.Free;
end.