代码大全

ReadAndPrintFieldByType[SingleFlag]:=ReadAndPrintSingleFlag

ReadAndPrintFieldByType[BitField] :=ReadAndPrintBitField

ReadAndPrintFloatingPoint
HandleFieldProc ,

MessageIdx = 1

While(MessageIdx<=NumFieldsInMessage) and( FileStatus=OK) do

begin

FieldType:=FieldDescription[MessageIdx].FieldType

FieldName:=FieldDescription[MessageIdx].FieldName

ReadAndPrintFieldByType FieldType (FieldName FileStatus)

end

case 27
case case
C

MessageID

2 Age 18 65

Age 0 17
66

0~ 17

Age
Age 0 17 6
5 min() max()

max( min(66,Age), 17)

min() max() 5
5
5 min() max()