← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fcl/db/sdf/testfix.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/testfix.pp
1
 
{$mode objfpc}
2
 
{$h+}
3
 
program testfix;
4
 
 
5
 
uses DB,sdfdata,sysutils;
6
 
 
7
 
Procedure Dotest;
8
 
 
9
 
Var
10
 
  I,Count : Integer;
11
 
 
12
 
begin
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; 
37
 
end;
38
 
 
39
 
begin
40
 
  DoTest;
41
 
end.
 
 
b'\\ No newline at end of file'