|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Hexadezimal in Binär
18. Aug 2011, 14:37
Wie gezeigt ginge es auch, ein $ dem String voranzustellen und das an (Try)StrToInt zu übergeben, aber das soll ja wahrscheinlich nicht der Zweck der Übung sein. Dann also zu Fuß:
- String von hinten nach vorn durchgehen
- Multiplikator initial auf 1 setzen
- Ergebnis initial auf 0
- Zeichen in Zahl wandeln (case-Verzweigung wie gezeigt)
- ermittelte Zahl mit Multiplikator multiplizieren und zum Ergebnis addieren
- Multiplikator mit 16 miltiplizieren
Wenn ich nichts vergessen habe, sollte es so funktionieren.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|