Hallo,
ich hab ein Problem mit Hex-Werten. Ich möchte sie gerne umwandeln aber es will nicht so recht funktionieren. Hier mein Code, kann mir da vielleicht jemand sagen woran es liegt. Danke
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44:
| function getnum(h1: String): Integer; var d1: Integer; begin h1:=lowercase(h1); if h1 = '0' Then d1 := 0; if h1 = '1' Then d1 := 1; if h1 = '2' Then d1 := 2; if h1 = '3' Then d1 := 3; if h1 = '4' Then d1 := 4; if h1 = '5' Then d1 := 5; if h1 = '6' Then d1 := 6; if h1 = '7' Then d1 := 7; if h1 = '8' Then d1 := 8; if h1 = '9' Then d1 := 9; if h1 = 'a' Then d1 := 10; if h1 = 'b' Then d1 := 11; if h1 = 'c' Then d1 := 12; if h1 = 'd' Then d1 := 13; if h1 = 'e' Then d1 := 14; if h1 = 'f' Then d1 := 15; result:=d1; end;
function hextoint(hex: String): Integer; var d: Integer; i: Integer; dez: Integer; h: String; dd: Integer; begin i:=1; dez:=0; while i < length(hex)+1 do begin h:=copy(hex, i, 1); d:=getnum(h); dd:=d*round(power(16, length(hex)-i)); dez:=dez+dd; inc(i); end; result:=dez; end; |
Delphi bringt auch beim Compilieren den Fehler:'Ungenügende Forward- oder External-Deklaration.'
Es liegt aber kein Schreibfehler im Funktionskopf vor, deshalb???
mfg
Daniel