← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fcl/db/sdf/testsdf.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

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