mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 05:59:37 +01:00
33 lines
576 B
ObjectPascal
33 lines
576 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.
|