Ja das Weis ich, und genau das will ich ja auch
so gehts :
Delphi-Quellcode:
Function BinFtoString(d: single): String;
Var
i: integer;
k: ^integer;
j: integer absolute d;
Begin
result := '';
For i := 0 To 31 Do Begin
If j And 1 = 1 Then
result := '1' + result
Else
result := '0' + result;
j := j Shr 1;
End;
End;
@ generic
thx mit 8 statt 7 gehts auch
Delphi-Quellcode:
Function BinFtoString(d: single): String;
Var
i, j: integer;
k: ^integer;
Begin
result := '';
k := @d;
j := k^;
For i := 0 To 31 Do Begin
If (j And $80000000 = $80000000) Then
result := result + '1'
Else
result := result + '0';
j := j Shl 1;
End;
End;