Real in Bytefolge umwandeln

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Kann mir jemand sagen, wie ich einen beliebigen Realtyp in ein Array of Byte umwandeln kann? Mit Integern kann ich es wie folgt machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

for i:=0 to size-1 do
begin
   bytes[i]:=int and $FF;
   int:=int SHR 8;
end;

Das klappt bei Reals nicht, denn ich kann weder ein and noch ein SHR auf einen Realtyp anwenden.

_________________
Linux und OpenSource rulez!

greg · Beiträge: 119 Windows2000, WindowsXP D5 Prof

Hallo Sourcehunter,

ich weiss zwar nicht genau wie, aber das Einfachste und Schnellste dürfte wohl sein, wenn Du Dir den Zeiger auf die Variable besorgst und die Bytes (je nach Datentyp) direkt aus dem Speicher liest.

Gruß
Gregor

jasocul · Verfasst: Fr 08.10.04 15:44

@sourcehunter:
Was hast du denn damit vor???
Du weist hoffentlich, dass Fließkommazahlen ganz anders dargestellt werden, als Integer und Co.

.Chef · Beiträge: 1112

Eine Anwendung wäre ein Data Inspector, z.B. in einem Hex-Editor. ;-)

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

@jasocul: Ja, ich weiß das, deshalb will ich das ja wissen. :wink:

@greg: Auf die Idee hätte ich selber kommen können. Danke.

_________________
Linux und OpenSource rulez!

uall@ogc · Verfasst: Fr 08.10.04 16:33

also:

s := format(%f,[realzahl];
delete(s,pos(',',s),1);

for i := 1 to length(s) do
dasarray[i] = ord(s[i])-ord('0')

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Nein nicht solche Bytes. Echte Bytes, wie sie im Scheicher liegen. Ich habe Das Problem inzwischen so gelöst:

markieren

Delphi-Quelltext

1:
2:

{bytes:Array of Byte}
bytes:=Pointer(@float);

_________________
Linux und OpenSource rulez!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme