function NewDatabase: integer;

NewDatabase allocates memory for a new table. It returns non-zero value if success.
The allocated memory will be released after calling CreateDatabase or CreateAndOpenDatabase.

var ok :integer; begin if NewDatabase then begin AddField('Name', 'C', 20); AddField('Birth', 'D', 0); AddField('Sex', 'L', 0); AddField('Salary', 'N', 10 + 2*256); AddField('Notes', 'M', 0); end; ok := CreateDatabase('clients.dbf', 5, 0); writeln( inttostr( ok ) ); end.