Einzelnen Beitrag anzeigen

JBJHJM

Registriert seit: 16. Jan 2009
88 Beiträge
 
Delphi 2005 Personal
 
#1

Problem mit BlockWrite und ShortInt

  Alt 18. Dez 2009, 19:49
Lieber nicht beachten, es scheint jetzt doch zu gehen!

Hallo,
habe ein kleines Problem (wahrscheinlich kenne ich einfach noch nicht den passenden Befehl):
Ich möchte einen ShortInt-Wert -> 2 byte in eine Datei schreiben.
Mit dem normalen Befehl a la

BlockWrite(file,shortint,4); käme dann ja mit

shortint := 64; 40 00 (in hex)

raus, was dann natürlich zurückverwandelt plötzlich Dezimal 16384 ergibt (warum das so ist, ist mir schon klar!)

Ich möchte vor dem Wert NICHT die Größe angeben und den Wert entsprechend auf die benutzten Stellen kürzen, sondern die Länge konstant bei 4 Bytes behalten, wobei die ersten bei kleineren Zahlen dann halt 0 werden sollen.

Das war jetzt wahscheinlich schwer zu verstehen, also versuche ich nochmal Klartext:
Was muss ich an
Delphi-Quellcode:
shortint := 64;
BlockWrite(file,shortint,2);
ändern, damit in der Datei in Hexadezimal am Ende 0040 anstatt 4000 steht?

Hoffe, da steigt jetzt noch jemand durch [b]
  Mit Zitat antworten Zitat