summaryrefslogtreecommitdiff
path: root/irdecoderunit.pas
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2015-10-23 08:53:47 +0200
committerErich Eckner <git@eckner.net>2015-10-23 09:01:42 +0200
commitea439bea7ca76a7cc0f10ba1bc5e9f65e73422ea (patch)
tree5571181dcf79ece0d0270e75112490738aa167fd /irdecoderunit.pas
parent7fdd7eaffbe38fee2cec5264b6245f315abb654e (diff)
downloadunits-ea439bea7ca76a7cc0f10ba1bc5e9f65e73422ea.tar.xz
tBefehl auf class umgestellt in irdecoderunit.pas
Diffstat (limited to 'irdecoderunit.pas')
-rw-r--r--irdecoderunit.pas46
1 files changed, 42 insertions, 4 deletions
diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index 06b7c28..dda63eb 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -40,13 +40,15 @@ type
function gibAlleBefehle: string;
end;
- tBefehl = record
+ tBefehl = class
nummer,altZustand, // Index des gesendeten Zeichens in zeichenTabelle, sowie alter
neuZustand: longword; // und neuer Zustand
einzelKlick, // gedrückt gehaltene Taste = Befehl mehrmals?
kollapsTrenner: boolean; // Darf über diesen Befehl hinweg kollabiert werden?
cmd,params: string; // Befehl + Parameter
kollapsArt: tKollapsArt; // Wie kollabiert dieser Befehl?
+ constructor create;
+ destructor destroy; override;
end;
procedure befehleKonfLesen(konfigName: string);
@@ -81,10 +83,14 @@ begin
end;
constructor tIRDecoder.create(inputName, konfigName: string; watte: boolean);
+var
+ i: int64;
begin
inherited create;
if (length(zeichenTabelle)=0) or (length(befehlsTabelle)=0) then begin
setlength(zeichenTabelle,0);
+ for i:=0 to length(befehlsTabelle)-1 do
+ befehlsTabelle[i].free;
setlength(befehlsTabelle,0);
befehleKonfLesen(konfigName);
end;
@@ -297,6 +303,24 @@ begin
end;
end;
+// tBefehl *********************************************************************
+
+constructor tBefehl.create;
+begin
+ inherited create;
+ fillchar(cmd,sizeof(cmd),#0);
+ cmd:='';
+ fillchar(params,sizeof(params),#0);
+ params:='';
+end;
+
+destructor tBefehl.destroy;
+begin
+ cmd:='';
+ params:='';
+ inherited destroy;
+end;
+
// allgemeine Funktionen *******************************************************
procedure befehleKonfLesen(konfigName: string);
@@ -323,6 +347,7 @@ begin
if zeile='Ende' then break;
if startetMit('Befehl:',zeile) then begin
setlength(befehlsTabelle,length(befehlsTabelle)+1);
+ befehlsTabelle[length(befehlsTabelle)-1]:=tBefehl.create;
befehlsTabelle[length(befehlsTabelle)-1].nummer:=length(zeichenTabelle)-1;
befehlsTabelle[length(befehlsTabelle)-1].altZustand:=cStat;
befehlsTabelle[length(befehlsTabelle)-1].neuZustand:=cStat;
@@ -421,6 +446,7 @@ var
mi,ma,li,re,pv,pvZ,i: longword;
tmp: tBefehl;
begin
+ tmp:=nil;
if von>=bis then exit;
mi:=von;
ma:=mi;
@@ -446,9 +472,9 @@ begin
(befehlsVergleich(re,pv,pvZ)>0) do
dec(re);
if li>=re then break;
- move(befehlsTabelle[re],tmp,sizeOf(tBefehl));
- move(befehlsTabelle[li],befehlsTabelle[re],sizeOf(tBefehl));
- move(tmp,befehlsTabelle[li],sizeOf(tBefehl));
+ tmp:=befehlsTabelle[re];
+ befehlsTabelle[re]:=befehlsTabelle[li];
+ befehlsTabelle[li]:=tmp;
inc(li);
dec(re);
end;
@@ -489,5 +515,17 @@ begin
result:=0;
end;
+var i: int64;
+
+initialization
+ fillchar(befehlsTabelle,sizeof(befehlsTabelle),#0);
+ setlength(befehlsTabelle,0);
+ fillchar(zeichenTabelle,sizeof(zeichenTabelle),#0);
+ setlength(zeichenTabelle,0);
+finalization
+ for i:=0 to length(befehlsTabelle)-1 do
+ befehlsTabelle[i].free;
+ setlength(befehlsTabelle,0);
+ setlength(zeichenTabelle,0);
end.