1{$mode objfpc}
2{$h+}
3program testfix;
4
5uses DB,sdfdata,sysutils;
6
7Procedure Dotest;
8
9Var
10  I,Count : Integer;
11
12begin
13  With TFixedFormatDataSet.Create(Nil) do
14    try
15      FileName := 'fpc.ssx';
16      Schema.Add('First Name=20');
17      Schema.Add('Last Name=20');
18      Schema.Add('Email=30');
19      Open;
20      Count:=0;
21      Try
22        While Not EOF do
23          begin
24          Inc(Count);
25          Writeln('Record : ',Count);
26          For I:=0 to FieldCount-1 do
27            Writeln(Fields[i].FieldName,' : ',Fields[i].AsString);
28          Writeln('-------------------------------')  ;
29          Next;
30          end;
31      Finally
32        Close;
33      end;
34    finally
35      free;
36    end;
37end;
38
39begin
40  DoTest;
41end.
42