Autor Beitrag
Fabian
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 42



BeitragVerfasst: Do 24.07.03 16:06 
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 278



BeitragVerfasst: 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

ausblenden 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.