Zahl wieder in String umwandeln

[p80286]

Als pseudocode formuliert denke ich es sollte ungefähr so aussehen:
type
maxdbl:=sizeof(double);
adbl = array [1..maxdbl] of byte;
padbl=^adbl;

case werttyp of
single : for i:=1 to maxsgl do result:=result+inttohex(pasgl^[i]);
double : for i:=1 to maxdbl do result:=result+inttohex(padbl^[i]);
...

Gruß
K-H