Halcyon version 3.0
Submitted By:
Unknown
Rating:
(Not rated) (
Rate It)
program GSDMO_14;
{------------------------------------------------------------------------------
DBase File Maker
Copyright (c) Richard F. Griffin
20 January 1993
102 Molded Stone Pl
Warner Robins, GA 31088
-------------------------------------------------------------
Program that creates a dBase file.
Demonstrates the use of GS_DB4Build to create a dBase file. A
file 'MYFILE.DBF' will be created.
-------------------------------------------------------------------------------}
uses
GSOB_DBF;
var
MyFile : GSO_DB4Build; {Creates a dBase IV file}
{Use GSO_DB3Build for a dBase III file}
begin
with MyFile do
begin
Init('MyFile');
{Insert the fields into the file}
InsertField('FIELD1','C',8,0); {Character, length 8}
InsertField('SECOND','D',8,0); {Date (length 8)}
InsertField('THIRD','L',1,0); {Logical (length 1)}
InsertField('FOURTH','N',6,2); {Number, length 6, 2 Decimals}
{End insertion by calling Done to close the file}
Done;
end;
end.
