|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Hexadezimal in Binär
18. Aug 2011, 14:11
Delphi-Quellcode:
case c of
'A', 'a': d := 10;
'B', 'b': d := 11;
'C', 'c': d := 12;
'D', 'd': d := 13;
'E'; 'e': d := 14;
'F', 'f': d := 15;
'0'..'9': d:=StrToInt(c);
else
//Fehler: ungültiges Zeichen, irgendwie behandeln
end;
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
|
|
|
|