[pascal]type
TStrFloat = packed array[1..4] of char;
function IntToRaw(I: Integer): String;
begin
result := TStrFloat(I);
end;
SingleToRaw(SI: Single): String;
begin
result := TStrFloat(SI);
end;[/pascal]
[pascal]type
TStrFloat = packed array[1..4] of char;
function IntToRaw(I: Integer): String;
begin
result := TStrFloat(I);
end;
SingleToRaw(SI: Single): String;
begin
result := TStrFloat(SI);
end;[/pascal]
Peregrinus, expectavi pedes meos in cymbalis
Nullus norvegicorum sole urinat
Bookmarks