Gauge in Firemonkey

[Union]

Eine kleinere Optimierung wäre vielleicht dies:

Delphi-Quellcode:

procedure TGauge.DrawDigit...
...
const
  //    01
  // 32   02
  //   64
  // 16   04
  //   08
  //
  Bitmasks : Array[0..9] of Byte =
    ( 63,
      6,
      91,
      79,
      102,
      109,
      124,
      7,
      127,
      103);
begin
  // Diese teuren Aufrufe ersetzen (weiter mit 2=2, 4=4 .. 64=64)
  // if (IsNumberAvailable(number, [0, 2, 3, 5, 6, 7, 8, 9])) then
  if Bitmasks[Number] and 1 = 1 then
end;