Unit DigitLed

Classes

TDigitLed -

Functions

Register -

Types

TArrChar
TBarSet
TCharacter
TDigitBars

Constants

CharCols
CharDefs
CharRows

Variables


Functions


procedure Register;


Types


TArrChar = array ['0'..'Z'] of TBarSet;

TBarSet= set of TDigitBars

TCharacter = String[1]
Z;
TDigitBars = (bOne,bTwo,bThree,bFour,bFive,bSix,bSeven,bpoint,
                bDiagOne,bDiagTwo,bDiagThree,bDiagFour);
rows of every character (in dots

Constants

CharCols = 9

CharDefs = ([bOne,bTwo,bThree,bFour,bFive,bSix,bDiagTwo,bDiagFour], // 0 [bTwo,bThree], // 1 [bOne,bTwo,bFour,bFive,bSeven], // 2 [bOne,bTwo,bThree,bFour,bSeven], // 3 [bTwo,bThree,bSix,bSeven], // 4 [bOne,bThree,bFour,bSix,bSeven], // 5 [bOne,bThree,bFour,bFive,bSix,bSeven], // 6 [bOne,bTwo,bThree,bSix], // 7 [bOne,bTwo,bThree,bFour,bFive,bSix,bSeven], // 8 [bOne,bTwo,bThree,bFour,bSix,bSeven], // 9 [], // : [bPoint], // ; [bDiagTwo,bDiagThree], // < [bFour,bSeven], // = [bDiagOne,bDiagFour], // > [], // ? [], // @ [bOne,bTwo,bThree,bFive,bSix,bSeven], // A [bOne,bThree,bFour,bFive,bSix,bSeven,bDiagTwo], // B [bOne,bFour,bFive,bSix], // C [bTwo,bThree,bFour,bFive,bSeven], // D [bOne,bFour,bFive,bSix,bSeven], // E [bOne,bFive,bSix,bSeven], // F [bOne,bThree,bFour,BFive,bSix,bSeven], // G [bTwo,bThree,bFive,bSix,bSeven], // H [bFive,bSix], // I [bTwo,bThree,bFour,bFive], // J [bThree,bFive,bSix,bSeven,BDiagTwo], // K [bFour,bFive,bSix], // L [bTwo,bThree,bFive,bSix,bDiagOne,bDiagTwo], // M [bTwo,bThree,bFive,bSix,bDiagOne,bDiagThree], // N [bOne,bTwo,bThree,bFour,bFive,bSix], // O [bOne,bTwo,bFive,bSix,bSeven], // P [bOne,bTwo,bThree,bFour,bFive,bSix,bDiagThree], // Q [bOne,bTwo,bFive,bSix,bSeven,bDiagThree], // R [bOne,bThree,bFour,bSix,bSeven], // S [bFour,bFive,bSix,bSeven], // T [bTwo,bThree,bFour,bFive,bSix], // U [bFive,bSix,bDiagTwo,bDiagFour], // V [bTwo,bThree,bFive,bSix,bDiagThree,bDiagFour], // W [bDiagOne,bDiagTwo,bDiagThree,bDiagFour], // X [bDiagOne,bDiagTwo,bDiagFour], // Y [bOne,bFour,bDiagTwo,bDiagFour])

Holds the definition of every character

CharRows = 9

columns of every character (in dots

Variables