Lines Matching refs:result
306 result := TJSONProtocolImpl.Create( trans);
312 TType.Bool_: result := NAME_BOOL;
313 TType.Byte_: result := NAME_BYTE;
314 TType.I16: result := NAME_I16;
315 TType.I32: result := NAME_I32;
316 TType.I64: result := NAME_I64;
317 TType.Double_: result := NAME_DOUBLE;
318 TType.String_: result := NAME_STRING;
319 TType.Struct: result := NAME_STRUCT;
320 TType.Map: result := NAME_MAP;
321 TType.Set_: result := NAME_SET;
322 TType.List: result := NAME_LIST;
323 TType.Uuid: result := NAME_UUID;
332 if name = NAME_BOOL then result := TType.Bool_
333 else if name = NAME_BYTE then result := TType.Byte_
334 else if name = NAME_I16 then result := TType.I16
335 else if name = NAME_I32 then result := TType.I32
336 else if name = NAME_I64 then result := TType.I64
337 else if name = NAME_DOUBLE then result := TType.Double_
338 else if name = NAME_STRUCT then result := TType.Struct
339 else if name = NAME_STRING then result := TType.String_
340 else if name = NAME_MAP then result := TType.Map
341 else if name = NAME_LIST then result := TType.List
342 else if name = NAME_SET then result := TType.Set_
343 else if name = NAME_UUID then result := TType.Uuid
369 result := FALSE;
436 result := FColon;
455 result := FData;
465 result := FData;
536 then result := i
544 result := Byte( PChar(HEXCHARS)[val and $0F]);
545 ASSERT( Pos( Char(result), HEXCHARS) > 0);
918 SetLength( result, buffer.Size);
919 if buffer.Size > 0 then Move( buffer.Memory^, result[0], Length(result));
930 result := CharInSet( Char(b), NUMCHARS);
946 result := strbld.ToString;
967 result := StrToInt64(str);
994 result := dub;
1004 result := StrToFloat( str, INVARIANT_CULTURE);
1044 result := b;
1083 Init( result);
1089 result.Name := SysUtils.TEncoding.UTF8.GetString( ReadJSONString( FALSE));
1090 result.Type_ := TMessageType( ReadJSONInteger);
1091 result.SeqID := ReadJSONInteger;
1104 Init( result);
1118 Init( result);
1121 then result.Type_ := TType.Stop
1123 result.ID := ReadJSONInteger;
1127 result.Type_ := GetTypeIDForTypeName( str);
1141 Init( result);
1145 result.KeyType := GetTypeIDForTypeName( str);
1148 result.ValueType := GetTypeIDForTypeName( str);
1150 result.Count := ReadJSONInteger;
1151 CheckReadBytesAvailable(result);
1167 Init( result);
1171 result.ElementType := GetTypeIDForTypeName( str);
1172 result.Count := ReadJSONInteger;
1173 CheckReadBytesAvailable(result);
1186 Init( result);
1190 result.ElementType := GetTypeIDForTypeName( str);
1191 result.Count := ReadJSONInteger;
1192 CheckReadBytesAvailable(result);
1204 result := (ReadJSONInteger <> 0);
1210 result := ReadJSONInteger;
1216 result := ReadJSONInteger;
1222 result := ReadJSONInteger;
1228 result := ReadJSONInteger;
1234 result := ReadJSONDouble;
1240 result := SysUtils.TEncoding.UTF8.GetString( ReadJSONString( FALSE));
1246 result := ReadJSONBase64;
1252 result := StringToGUID( '{' + ReadString + '}');
1260 TType.Stop: result := 0;
1261 TType.Void: result := 0;
1262 TType.Bool_: result := 1;
1263 TType.Byte_: result := 1;
1264 TType.Double_: result := 1;
1265 TType.I16: result := 1;
1266 TType.I32: result := 1;
1267 TType.I64: result := 1;
1268 TType.String_: result := 2; // empty string
1269 TType.Struct: result := 2; // empty struct
1270 TType.Map: result := 2; // empty map
1271 TType.Set_: result := 2; // empty set
1272 TType.List: result := 2; // empty list
1273 TType.Uuid: result := 36; // "E236974D-F0B0-4E05-8F29-0B455D41B1A1"