Originally Posted by Diaboli
[pascal]
function IntToRaw(I: Integer): String;
var
S: Array[0..3] of Char absolute I;
begin
result := S;
end;
function SingleToRaw(SI: Single): String;
var
S: Array[0..3] of Char absolute SI;
begin
result := S;
end;
[/pascal]
:roll:
Bookmarks