1 if FileExists('demo1.bds') then
2 BufDataSet1.LoadFromFile('demo1.bds')
3 else
4 with BufDataSet1 do
5 begin
6 CreateDataSet;
7 Append;
8 Fields[0].Value := 'One';
9 Fields[1].Value := 1;
10 Fields[2].Value := 1.2;
11 Append;
12 Fields[0].Value := 'Two';
13 Fields[1].Value := 2;
14 Fields[2].Value := 2.3;
15 Append;
16 Fields[0].Value := 'Three';
17 Fields[1].Value := 3;
18 Fields[2].Value := 3.4;
19 Append;
20 Fields[0].Value := 'Four';
21 Fields[1].Value := 4;
22 Fields[2].Value := 4.5;
23 Post;
24 SaveToFile('demo1.bds');
25 end;
26