2
This file is part of the Free Pascal run time library.
3
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
4
Free Pascal development team
6
Creates a flat datafile for use with testds.
8
See the file COPYING.FPC, included in this distribution,
9
for details about the copyright.
11
This program is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
**********************************************************************}
20
uses ddg_rec,sysutils;
22
Type IndexFile = File Of Longint;
35
Writeln('Usage: createds tablename');
38
TableName:=ChangeFileExt(paramstr(1),'.ddg');
39
IndexName:=ChangeFileExt(TableName,'.ddx');
44
S:=Format('This is person %d.',[i]);