Entwickler-Ecke

Sonstiges (Delphi) - HexToBin


Fabian - Do 24.07.03 16:06
Titel: HexToBin
Hi

Kann mir jemand sagen wie ich eine Hexadezimalzahl in einen binären Wert umrechne. Ich weis zwar das es die Funktion HexToBin gibt. Wenn ich diese jedoch verwende erhalte ich keinen Binärwert. Ich weis nicht woran das liegt. Auch die Online-Hilfe konnte mir nicht wirklich weiterhelfen. Kann mir jemand ein Beispiel geben wie ich diese Funktion richtig verwende.


Danke


ShadowThief - Do 24.07.03 16:37

wenn du die hexadezimal als string hast und den binärwert auch als
string möchtest, dann kannst du dir einfach eine funktion schreiben,
obwohl ich jetzt nicht weiss, ob das mit native object pascal auch geht.

irgendwie halt in der art


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
dest := StringReplace(src, '0''0000', [rfReplaceAll]);
dest := StringReplace(src, '1''0001', [rfReplaceAll]);
dest := StringReplace(src, '2''0010', [rfReplaceAll]);
dest := StringReplace(src, '3''0011', [rfReplaceAll]);
dest := StringReplace(src, '4''0100', [rfReplaceAll]);
dest := StringReplace(src, '5''0101', [rfReplaceAll]);
dest := StringReplace(src, '6''0110', [rfReplaceAll]);
dest := StringReplace(src, '7''0111', [rfReplaceAll]);
dest := StringReplace(src, '8''1000', [rfReplaceAll]);
dest := StringReplace(src, '9''1001', [rfReplaceAll]);
dest := StringReplace(src, 'A''1010', [rfReplaceAll]);
dest := StringReplace(src, 'B''1011', [rfReplaceAll]);
dest := StringReplace(src, 'C''1100', [rfReplaceAll]);
dest := StringReplace(src, 'D''1101', [rfReplaceAll]);
dest := StringReplace(src, 'E''1110', [rfReplaceAll]);
dest := StringReplace(src, 'F''1111', [rfReplaceAll]);


shadow.