Strukturanpassung

1 files changed, 56 insertions, 45 deletions

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index 1075857..edf981c 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -8,6 +8,14 @@ uses
   Classes, SysUtils, lesethreadunit, lowlevelunit;
 
 type
+  tBefehlsWort = (
+    bwNull,bwEins,bwZwei,bwDrei,bwVier,bwFuenf,bwSechs,bwSieben,bwAcht,bwNeun,bwZwoelf,
+    bwAnAus,bwPunkt,bwPfeilInKasten,
+    bwNaechstes,bwVorheriges,bwZurueck,bwVor,bwPause,bwLos,bwStop,
+    bwProgrammPlus,bwProgrammMinus,bwStumm,bwLauter,bwLeiser,
+    bwKontrastMinus,bwKontrastPlus,bwHelligkeitMinus,bwHelligkeitPlus,
+    bwRot,bwGruen,bwGelb,bwBlau);
+
   tIRDecoder = class
   private
     ttySLeser:       tLeseProzess;
@@ -27,48 +35,55 @@ type
   end;
 
   tBefehl = record
-    zeichen:     longword;
     einzelKlick: boolean;
     toDo:        string;
   end;
 
 implementation
 
-const zeichenTabelle: array[0..33] of tBefehl = (
-    (zeichen: $00000007; einzelKlick: true; toDo: '0'), // 0/10
-    (zeichen: $00004006; einzelKlick: true; toDo: '1'), // 1
-    (zeichen: $00002007; einzelKlick: true; toDo: '2'), // 2
-    (zeichen: $00006006; einzelKlick: true; toDo: '3'), // 3
-    (zeichen: $00001007; einzelKlick: true; toDo: '4'), // 4
-    (zeichen: $00005006; einzelKlick: true; toDo: '5'), // 5
-    (zeichen: $00003007; einzelKlick: true; toDo: '6'), // 6
-    (zeichen: $00007006; einzelKlick: true; toDo: '7'), // 7
-    (zeichen: $00000807; einzelKlick: true; toDo: '8'), // 8
-    (zeichen: $00004806; einzelKlick: true; toDo: '9'), // 9
-    (zeichen: $00000a07; einzelKlick: true; toDo: '2/12'), // 2-/12
-    (zeichen: $00001807; einzelKlick: true; toDo: 'Power'), // Power
-    (zeichen: $00001a07; einzelKlick: true; toDo: 'Punkt'), // Punkt
-    (zeichen: $00007806; einzelKlick: true; toDo: 'PfeilInKasten'), // PfeilInKasten
-    (zeichen: $00002a07; einzelKlick: true; toDo: '|>'), // |>
-    (zeichen: $00003a07; einzelKlick: true; toDo: '<|'), // <|
-    (zeichen: $00002807; einzelKlick: true; toDo: '<<'), // <<
-    (zeichen: $00006806; einzelKlick: true; toDo: '>>'), // >>
-    (zeichen: $00003807; einzelKlick: true; toDo: '||'), // ||
-    (zeichen: $00006a06; einzelKlick: true; toDo: '>'), // >
-    (zeichen: $00004a06; einzelKlick: true; toDo: '[]'), // []
-    (zeichen: $00004e06; einzelKlick: true; toDo: 'P+'), // P+
-    (zeichen: $00000e07; einzelKlick: true; toDo: 'P-'), // P-
-    (zeichen: $00005806; einzelKlick: true; toDo: 'Stumm'), // Stumm
-    (zeichen: $00000407; einzelKlick: false; toDo: 'L+'), // L+
-    (zeichen: $00004406; einzelKlick: false; toDo: 'L-'), // L-
-    (zeichen: $00005406; einzelKlick: false; toDo: 'K-'), // K-
-    (zeichen: $00001407; einzelKlick: false; toDo: 'K+'), // K+
-    (zeichen: $00006406; einzelKlick: false; toDo: 'H-'), // H-
-    (zeichen: $00002407; einzelKlick: false; toDo: 'H+'), // H+
-    (zeichen: $00004c06; einzelKlick: true; toDo: 'rot'), // rot
-    (zeichen: $00007406; einzelKlick: true; toDo: 'gruen'), // gruen
-    (zeichen: $00006c06; einzelKlick: true; toDo: 'gelb'), // gelb
-    (zeichen: $00001207; einzelKlick: true; toDo: 'blau') // blau
+const zeichenTabelle: array[tBefehlsWort] of longword = (
+    $0007,$4006,$2007,$6006,$1007,$5006,$3007,$7006,$0807,$4806,$0a07,
+    $1807,$1a07,$7806,
+    $2a07,$3a07,$2807,$6806,$3807,$6a06,$4a06,
+    $4e06,$0e07,$5806,$0407,$4406,
+    $5406,$1407,$6406,$2407,
+    $4c06,$7406,$6c06,$1207
+  );
+const befehlsTabelle: array[tBefehlsWort] of tBefehl = (
+    (einzelKlick: true; toDo: '0'), // 0/10
+    (einzelKlick: true; toDo: '1'), // 1
+    (einzelKlick: true; toDo: '2'), // 2
+    (einzelKlick: true; toDo: '3'), // 3
+    (einzelKlick: true; toDo: '4'), // 4
+    (einzelKlick: true; toDo: '5'), // 5
+    (einzelKlick: true; toDo: '6'), // 6
+    (einzelKlick: true; toDo: '7'), // 7
+    (einzelKlick: true; toDo: '8'), // 8
+    (einzelKlick: true; toDo: '9'), // 9
+    (einzelKlick: true; toDo: '2/12'), // 2-/12
+    (einzelKlick: true; toDo: 'Power'), // Power
+    (einzelKlick: true; toDo: 'Punkt'), // Punkt
+    (einzelKlick: true; toDo: 'PfeilInKasten'), // PfeilInKasten
+    (einzelKlick: true; toDo: '|>'), // |>
+    (einzelKlick: true; toDo: '<|'), // <|
+    (einzelKlick: true; toDo: '<<'), // <<
+    (einzelKlick: true; toDo: '>>'), // >>
+    (einzelKlick: true; toDo: '||'), // ||
+    (einzelKlick: true; toDo: '>'), // >
+    (einzelKlick: true; toDo: '[]'), // []
+    (einzelKlick: true; toDo: 'P+'), // P+
+    (einzelKlick: true; toDo: 'P-'), // P-
+    (einzelKlick: true; toDo: 'Stumm'), // Stumm
+    (einzelKlick: false; toDo: 'L+'), // L+
+    (einzelKlick: false; toDo: 'L-'), // L-
+    (einzelKlick: false; toDo: 'K-'), // K-
+    (einzelKlick: false; toDo: 'K+'), // K+
+    (einzelKlick: false; toDo: 'H-'), // H-
+    (einzelKlick: false; toDo: 'H+'), // H+
+    (einzelKlick: true; toDo: 'rot'), // rot
+    (einzelKlick: true; toDo: 'gruen'), // gruen
+    (einzelKlick: true; toDo: 'gelb'), // gelb
+    (einzelKlick: true; toDo: 'blau') // blau
   );
 
 // tIRDecoder ******************************************************************
@@ -117,17 +132,17 @@ end;
 
 procedure tIRDecoder.befehlAusfuehren(lw: longword);
 var
-  i:   longword;
   neu: boolean;
+  bw:  tBefehlsWort;
 begin
   neu:=lw<>letzterBefehl;
   letzterBefehl:=lw;
   lw:=lw and not $08;
 
-  for i:=0 to length(zeichenTabelle)-1 do
-    if zeichenTabelle[i].zeichen=lw then begin
-      if neu or not zeichenTabelle[i].einzelKlick then
-        writeln('> '+zeichenTabelle[i].toDo);
+  for bw:=low(tBefehlsWort) to high(tBefehlsWort) do
+    if zeichenTabelle[bw]=lw then begin
+      if neu or not befehlsTabelle[bw].einzelKlick then
+        writeln('> '+befehlsTabelle[bw].toDo);
       exit;
     end;
   writeln('roh: '+hexDump(@lw,sizeof(lw)));
@@ -148,10 +163,6 @@ begin
   end;
 
   if (length(s)=3) and base64Decode(s,inByte) then begin
-    if not base64ToBin(s) then
-      raise exception.create('interner Fehler: base64ToBin meckert, base64Decode aber nicht!');
-
-    writeln('Bits: '+s+' '+hexDump(@inByte,sizeof(inByte)));
     tastenDruckAnhaengen(inByte);
     exit;
   end;