mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 12:59:24 +02:00
38 lines
668 B
ObjectPascal
38 lines
668 B
ObjectPascal
unit DDG_Rec;
|
|
|
|
interface
|
|
|
|
uses sysutils;
|
|
|
|
type
|
|
|
|
// arbitary-length array of char used for name field
|
|
TNameStr = array[0..31] of char;
|
|
|
|
// this record info represents the "table" structure:
|
|
PDDGData = ^TDDGData;
|
|
TDDGData = record
|
|
Name: TNameStr;
|
|
Height: Extended;
|
|
LongField : Longint;
|
|
ShoeSize: SmallInt;
|
|
WordField : Word;
|
|
DatetimeField : TDateTime;
|
|
TimeField : TDateTime;
|
|
DateField : TDateTime;
|
|
Even : Boolean;
|
|
end;
|
|
|
|
// Pascal file of record which holds "table" data:
|
|
TDDGDataFile = file of TDDGData;
|
|
|
|
|
|
implementation
|
|
|
|
end.
|
|
$Log$
|
|
Revision 1.3 2002-09-07 15:15:23 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
}
|