Hi, ich habe folgendes Problem.
Ich möchte eine Integer Zahl konvertieren, Ausgabe soll erstemal eine Festpunktzahl 32Bits sein, die dann als interne Darstellung als sedezimal und als binäre Zahl ausgegeben werden soll.
Mein Code für die Umwandlung in Hex ist ja noch ganz einfach.
Delphi-Quellcode:
if RadioButtonInteger.Checked
then begin a := StrToInt(MaskEditEingabeInt.Text);
EditAusgabeHex.text := IntToHex(StrToInt(MaskEditEingabeInt.Text),8);
wird also zb. die Zahl 123 eingegeben, kommt als sedezimalzahl = 0000007B heraus.
Nun möchte ich diesen Wert benutzen und für jede Ziffer zb. 7 die Binäre darstellung zuordnen.
Beispiel:
7 := 0 1 1 1 + ' ' // plus ein Lehrzeichen für bessere Übersicht.
Das habe ich zuerst durch eine case of anweisung versucht, jedoch sind dort strings ja untersagt, also versuchte ich das mit einer If anweisung und jetzt hapert es.. ich bin einfach noch nicht all zu lange dabei, so kann ich das ohne eure Hilfe leider nicht fertigstellen.
Kann mir da einer von euch vielleicht einen kleinen Tipp geben? Ich hoffe ich habe mich klar ausdrücken können.
Später soll dann noch das ganze mit Realtypen im eingabeformat und IBM/390 LOng Real 64Bits; IBM/390 Extended 128Bits ; IEEE Long Real 64 Bits ; IEEE Extended Real 80 Bits im Ausgabetyp erweiter werden.
Ich freue mich auf jede unterstützung!
MFG
Marco