paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use fixed enum values to be maximize on the wire compatibility

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1154 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2010-02-06 15:45:07 +00:00
parent 52615e21ca
commit ea4816281b
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
wst/trunk/base_binary_formatter.pas
View File

@ -38,17 +38,18 @@ type
TDataName = String; TDataName = String;
TDataType = ( TDataType = (
dtInt8U, dtInt8S, dtInt8U = 1, dtInt8S = 2,
dtInt16U, dtInt16S, dtInt16U = 3, dtInt16S = 4,
dtInt32U, dtInt32S, dtInt32U = 5, dtInt32S = 6,
dtInt64U, dtInt64S, dtInt64U = 7, dtInt64S = 8,
dtBool, dtAnsiChar, dtWideChar, dtEnum, dtBool = 9,
dtSingle, dtDouble, dtExtended, dtCurrency, dtAnsiChar = 10, dtWideChar = 11, dtEnum = 12,
dtAnsiString, dtWideString, dtSingle = 13, dtDouble = 14, dtExtended = 15, dtCurrency = 16,
dtAnsiString = 17, dtWideString = 18,
{$IFDEF WST_UNICODESTRING} {$IFDEF WST_UNICODESTRING}
dtUnicodeString, dtUnicodeString = 19,
{$ENDIF WST_UNICODESTRING} {$ENDIF WST_UNICODESTRING}
dtObject, dtArray dtObject = 30, dtArray = 31
); );
const const
dtDefaultString = dtDefaultString =
@ -581,7 +582,7 @@ Begin
Else Else
Raise EBinaryFormatterException.CreateFmt(SERR_IndexOutOfBound,[AIndex]) Raise EBinaryFormatterException.CreateFmt(SERR_IndexOutOfBound,[AIndex])
End Else Begin End Else Begin
Raise EBinaryFormatterException.CreateFmt(SERR_InvalidDataTypeInContext,[GetEnumName(TypeInfo(TDataType), Ord(AOwner^.DataType))]) Raise EBinaryFormatterException.CreateFmt(SERR_InvalidDataTypeInContext,[IntToStr(Ord(AOwner^.DataType))])
End; End;
End; End;