Test question title


11
views
0
11 weeks ago by
Testing
this
body out
Community: Delphi Test
procedure TsdBinaryXml.WriteCardinal(S: TStream; ACardinal: cardinal);
var
C: byte;
begin
repeat
if ACardinal <= $7F then
begin
C := ACardinal;
S.Write(C, 1);
exit;
end else
C := (ACardinal and $7F) or $80;

S.Write(C, 1);
ACardinal := ACardinal shr 7;
until ACardinal = 0;
end;
written 11 weeks ago by Darian Miller  
Please login to add an answer/comment or follow this question.

Similar posts:
Search »