代码大全

case of time of day =>

read a time of day

print the field label

print the time of day

case of single flag =>

read a single flag

print the field label

print the single flag

case of bit field =>

read a Integer value

print the field label

print the bit field

,
19

, , 6 case

case
Pascal , , Pascal ,

type
HandleFieldProc = procedure
(
FieldDescription: String
var FileStatus: FileStatusType
);
FieldType
, :
var
ReadAndPrintFieldByType: array[FieldTypes] of HandleFileProc

, ReadAndPrintFieldByType
Pascal

ReadAndPrintFieldByType[FloatingPoint]:=ReadAndPrintFloatingPoint

ReadAndPrintFieldByType[Integer] :=ReadAndPrintInteger

ReadAndPrintFieldByType[CharString] :=ReadAndPrintCharString

ReadAndPrintFleldByType[TimeofDay] :=ReadAndPirntTimeofDay