,, dit artikel is gepubliceerd delphi3000. COM. Soms is het gehele nessescary bytes.Dit is bekend als de grote /kleine problemen, en de ontvangst van gegevens van een andere byte machine:,,, sommige machines byte van links naar rechts, andere regelingen, van links naar rechts, Delphi.,, dat een functie, kan de gehele swap ().But here are some examples on how to do it yourself.,,, //Turning a smallint (16 bit signed),, function i16( i : smallint ) : smallint;,, var,, x1 : smallint;,, x2 : array[0..1] of byte absolute x1;,, x3 : array[0..1] of byte absolute i;,, begin,, x2[0] := x3[1];,, x2[1] := x3[0];,, result := x1;,, end;,,, //Turning a word (16 bit unsigned),, function r16( i : word) : word; , ,, var,, x1 : word;,, x2 : array[0..1] of byte absolute x1;,, x3 : array[0..1] of byte absolute i;,, begin,, x2[0] := x3[1];,, x2[1] := x3[0];,, result := x1;,, end;,,, //Turning a longint (32 bit signed),, function r32( i : longint) : longint;,, var,, x1 : longint;,, x2 : array[1..4] of byte absoLuit x1;,, X:) [1], 4 bytes absolute ik;,,,, X [1]:= X [4]; [2], X, X3:= [3]; [3], X, X3:= [2]; [4]:=, X, X [1]; resultaten: = x1,,,,,,, ten einde, zie je een patroon?,,