Funktion (Größe formatieren) umkehren

[atc]

Danke, das ist auch gut. Komplett ohne Hilfsfunktion, if oder case geht es wohl nicht.
Sowas geht ja leider nicht, oder?

Delphi-Quellcode:

const
  A: Array[Char] of Byte = ('B': 0, 'K': 1, 'M': 2, usw.);