Negativen Wert in Hexadezimal oder Binär umwandeln

[Nixsager]

Hi

Mit Hilfe von http://www.it-academy.cc/article/1369/VB:+Dezimalzahl+in+Binaerzahl+umrechnen.html, http://de.wikihow.com/Bin%C3%A4rzahlen-in-Dezimalzahlen-umwandeln und http://de.wikihow.com/Zahlen-vom-Dezimalsystem-in-das-Hexadezimalsystem-umwandeln habe ich mir einen Code geschrieben der eine Dezimalzahl in eine Hexadezimalzahl oder einen binären Code umwandelt.

Code: Alles auswählen

 
   DevResultValueTemp := (DecValue Div (2 oder 16));
   ModResultValueTemp := (DecValue Mod (2 oder 16));
   DecValue := DevResultValueTemp;
 

Der Code läuft in einer Schleife solange wie die Variabel ModResultValueTemp nicht den Wert 0 hat.
Bei positiven Werten funktioniert das auch, nur bei negativen Werten erhalten ich nicht das erwünschte Ergebnis.
Die Variabeln sind alles Int32-Variabeln.

Wie bekomme ich es hin, das der Wert -1 als $FFFFFFFF oder 11111111111111111111111111111111 bzw. die negativen Werte ohne eine fremde Funktion/Procedur entsprechend ausgegeben werden?

Gruß vom Nixsager

[compmgmt]

Code: Alles auswählen

uses
sysutils;
...
IntToHex(-1, 2); // wird "FFFFFFFF" als String ausgeben

Code: Alles auswählen

uses
strutils;
...
IntToBin(-1, 32); // wird 32-mal "1" als String ausgeben

WICHTIG: Der zweite Parameter gibt Bei IntToHex die MINDESTANZAHL an Zeichen an, bei IntToBin die EXAKTE Anzahl an ausgebeben Zeichen!

[theo]

Ist das eine Programmierübung?
Ansonsten:
http://www.freepascal.org/docs-html/rtl ... tohex.html
http://www.freepascal.org/docs-html/rtl ... tobin.html

[Nixsager]

Ich will das ganze selbst in einer Routine lösen ohne eine fremde Funktion/Prozedur. Denn auf einem System wo die Funktion/Prozedur nicht zur verfügung steht kann ich sie nicht nutzen, bzw. will sie selber schreiben.
Wie gesagt, IntToHex bzw. IntToBin habe ich ja, aber leider mit der Beschränkung auf positiven Werten.

P.S.
Programmieren ist immer eine Übung.

[theo]

Ich verstehe irgendwie dein Problem nicht.
Auf welchem System sollte das denn nicht zur Verfügung stehen?

Den Quellcode zu IntToHex findest du in sysstr.inc, der für intToBin in strutils.

Wenn du es selber heraustüfteln willst, warum fragst du dann?

[Nixsager]

Wenn du es selber heraustüfteln willst, warum fragst du dann?

Steht doch alles im ersten Post. Ich will eine eigene Funktion/Prozedur bauen, und brauche Hilfe bei meinem Problem.

[theo]

Wenn du es selber heraustüfteln willst, warum fragst du dann?

Steht doch alles im ersten Post. Ich will eine eigene Funktion/Prozedur bauen, und brauche Hilfe bei meinem Problem.

Klingt eher nach müssen als nach wollen. Hausaufgabe?

Ich sehe ja deinen Code nicht. Versuch doch mal mit einem vorzeichenlosen Typen zu arbeiten. Z.B. LongWord.

[Nixsager]

Müssen und wollen.
Ich will meine eigene Funktion/Prozedur, deswegen muss ich sie selber schreiben. Denn so lernen ich das Programmieren auch besser. Man wächst mit seinen Aufgaben.

Die Idee mit dem nächstgrößeren Datentyp ist schlecht. Was ist wenn man schon den Größten schon nutzt hat?
Den Quellcode von FPC habe ich schon gesehen. Aber ich will ja meinen verbessern.

[c18x37]

Steht doch alles im ersten Post. Ich will eine eigene Funktion/Prozedur bauen, und brauche Hilfe bei meinem Problem.

Du solltest vorher von DecValue das 2-Komplement erstellen (https://de.wikipedia.org/wiki/Zweierkomplement)

z.B.

Code: Alles auswählen

type
    TConvert = record
        case integer of
            0: (integer: Integer);
            1: (cardinal: DWord);
   end;
 
procedure Beispiel;
var zahl : TConvert;
     DecValue: Cardinal;
begin
    zahl.integer := -1;
   DecValue := zahl.Cardinal; 
end;

Ich weiß, ist nicht schön so eine Typconvertierung, aber sehr schnell und es sollen ja nur 32bit Werte verarbeitet werden.

Christoph

[mse]

Arbeite mit Cardinal statt mit Integer.

[theo]

Die Idee mit dem nächstgrößeren Datentyp ist schlecht. Was ist wenn man schon den Größten schon nutzt hat?

Longword ist nicht größer sondern vorzeichenlos. Cardinal = Longword = DWord. Zur Zt. alles das Gleiche.

[Nixsager]

Das hängt vom System ab. Mein größter ist Int32.
Damit es einfacher wird, anstatt Int32 nimmt Int8. Die Bregrenzung liegt somit bei 8 Bit.

Ich will halt innerhalb dieser Grenze bleiben.

[theo]

Das hängt vom System ab. Mein größter ist Int32.
Damit es einfacher wird, anstatt Int32 nimmt Int8. Die Bregrenzung liegt somit bei 8 Bit.

Ein LongWord ist immer 32bit genau wie dein int32 (LongInt). Wo ist das Problem?

[Nixsager]

Uint32 bring mir nichts, weil es vorzeichenlos ist, und ich nur Int32 zur verfügung habe.

Wo ist das Problem?

Das Problem steht im ersten Post.

@c18x37
Danke für den Wiki-Link! Das scheint wohl, als könnte es mich weiter bringen.

[mse]

Wenn ich dich richtig verstehe, möchtest du die Bits von 2-er Komplementzahlen (=Integer) in sedezimaler Notation (=Hex) anzeigen. -> interpretiere die Integer Ausgangszahl als Cardinal und wandle die Cardinalzahl z.B. mit den Funktionen

Code: Alles auswählen

 
const
 charhex: array[0..15] of char =
          ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
 charhexlower: array[0..15] of char =
          ('0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f');
[...]
function valtohex(const avalue: byte): string;
begin
 setlength(result,2);
 pchar(pointer(result))^:= charhexlower[avalue shr 4];
 pchar(pchar(pointer(result))+1)^:= charhexlower[avalue and $f];
end;
 
function valtohex(const avalue: word): string;
begin
 setlength(result,4);
 pchar(pointer(result))^:= charhexlower[avalue shr 12];
 pchar(pchar(pointer(result))+1)^:= charhexlower[(avalue shr 8) and $f];
 pchar(pchar(pointer(result))+2)^:= charhexlower[(avalue shr 4) and $f];
 pchar(pchar(pointer(result))+3)^:= charhexlower[avalue and $f];
end;
 
function valtohex(const avalue: longword): string;
begin
 setlength(result,8);
 pchar(pointer(result))^:= charhexlower[avalue shr 28];
 pchar(pchar(pointer(result))+1)^:= charhexlower[(avalue shr 24) and $f];
 pchar(pchar(pointer(result))+2)^:= charhexlower[(avalue shr 20) and $f];
 pchar(pchar(pointer(result))+3)^:= charhexlower[(avalue shr 16) and $f];
 pchar(pchar(pointer(result))+4)^:= charhexlower[(avalue shr 12) and $f];
 pchar(pchar(pointer(result))+5)^:= charhexlower[(avalue shr 8) and $f];
 pchar(pchar(pointer(result))+6)^:= charhexlower[(avalue shr 4) and $f];
 pchar(pchar(pointer(result))+7)^:= charhexlower[avalue and $f];
end;
 
function valtohex(const avalue: qword): string;
begin
 result:= valtohex(avalue shr 32)+valtohex(avalue);
end;
 

von hier:
https://gitlab.com/mseide-msegui/mseide ... matstr.pas