Zahlen umwandeln (Bin, Oct, Dec, Hex)

[negaH]

Nungut über die Qualität des Ursprungsposting lässt sich streiten
aber, Zitat: "Dieser Ultrakrampf" hier...

Delphi-Quellcode:

 if not ((Edit1.Text[i] in ['0'..'9']) or (Edit1.Text[i] in ['A'..'F']) or (Edit1.Text[i] in ['a'..'f'])) then 
    bolPruef := false;

...lässt sich nicht nur irre elegant schreiben, sondern sogar viel einfacher:

bolPruef := Edit1.Text[i] in ['0'..'9', 'a'..'f', 'A'..'F'];

Gruß Hagen