mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-18 19:11:36 +01:00
73 lines
1.6 KiB
ObjectPascal
73 lines
1.6 KiB
ObjectPascal
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
|
|
Free Pascal development team
|
|
|
|
Creates a flat datafile for use with testds.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
program createds;
|
|
|
|
{$mode delphi}
|
|
|
|
uses ddg_rec,sysutils;
|
|
|
|
Type IndexFile = File Of Longint;
|
|
|
|
Var F : TDDGDataFile;
|
|
I : Integer;
|
|
S : String;
|
|
L : IndexFile;
|
|
TableName : String;
|
|
IndexName : String;
|
|
ARec : TDDGData;
|
|
|
|
begin
|
|
If ParamCount<>1 then
|
|
begin
|
|
Writeln('Usage: createds tablename');
|
|
Halt(1);
|
|
end;
|
|
TableName:=ChangeFileExt(paramstr(1),'.ddg');
|
|
IndexName:=ChangeFileExt(TableName,'.ddx');
|
|
Assign(F,TableName);
|
|
Rewrite(F);
|
|
For I:=1 to 100 do
|
|
begin
|
|
S:=Format('This is person %d.',[i]);
|
|
With Arec Do
|
|
begin
|
|
Name:=S;
|
|
height:=I*0.001;
|
|
LongField:=i*4;
|
|
ShoeSize:=I;
|
|
WordField:=i*2;
|
|
DateTimeField:=Now;
|
|
TimeField:=Time;
|
|
DateField:=Date;
|
|
Even:=(I mod 2) = 0
|
|
end;
|
|
Write(F,ARec);
|
|
end;
|
|
Close(F);
|
|
Assign(L,IndexName);
|
|
Rewrite(L);
|
|
For I:=0 to 100-1 do
|
|
Write(L,I);
|
|
Close(L);
|
|
end.
|
|
{
|
|
$Log$
|
|
Revision 1.2 2002-09-07 15:15:24 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
}
|