Einzelnen Beitrag anzeigen

Benutzerbild von Kedariodakon
Kedariodakon

Registriert seit: 10. Sep 2004
Ort: Mönchengladbach
833 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Binär in Hexadizmal

  Alt 18. Sep 2007, 18:13
Dazu must du schonmal die Größe festlegen (wieviel Bytes sind eine Zahl)...

Dezimal in Hexadizimal => Delphi-Referenz durchsuchenIntToHex (Funktion)
Hexadezimal in Dezimal => teste doch mal StrToInt( '$ff' )

Damit hast du schonmal alles nötige für Hexadezimal und Dezimal, fehlt ja nur noch Binär...

Für die umwndlung in Binär brauchst du nicht viel mehr als Delphi-Referenz durchsuchenAnd und nen Vergleich ev. noch Delphi-Referenz durchsuchenShr Delphi-Referenz durchsuchenShl je nach umsetzung...

Binär in Dezimal ist auch nicht viel schwierieger, ebenfalls nur Delphi-Referenz durchsuchenShl / Delphi-Referenz durchsuchenShr und ein simples Or...

Oder universal nach dem Vorschlag von Inherited
Dafür brachst du dann vor allem Delphi-Referenz durchsuchenDiv und Delphi-Referenz durchsuchenMod und ein Array für die Darstellungen nach Wert...

Da solltest du dir dann aber noch Delphi-Referenz durchsuchenUpperCase, Delphi-Referenz durchsuchenLowerCase anschauen.
Für den Umgang mit dem Array brauchst du dann wohl noch Delphi-Referenz durchsuchenHigh, Delphi-Referenz durchsuchenLow und Delphi-Referenz durchsuchenLength, um es in einer Schleife benutzen zu können...

z.b.:
Delphi-Quellcode:
Const
  cDisplay: Array Of Char[ 0..15 ] = ( '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f' );

Bye Christian

Edit: Tipfehler beseitigt (Thx Muetze1);
Christian
  Mit Zitat antworten Zitat