Digital-Anzeige

[faux]

Danke, KLS und Robert! So ist das Programm nur noch mehr 1/3 so groß...

Ja, ich weiß dass es solche Fonts gibts, nur dann hätt ich ja nix zu tun...

Beispielanwenung im 1. Post.

EDIT:
In der Procedure SetValue würde noch das reingehören:

Delphi-Quellcode:

if (Value < 0) or (Value > 9) then
  Value := 0;

Das ist doch korrekt so, oder?
Delphi gibt mir immer folgende Warnung aus:

Code:

[Warnung] Unit2.pas(82): Der Vergleich ergibt immer Falsch