diff options
Diffstat (limited to 'irdecoderunit.pas')
| -rw-r--r-- | irdecoderunit.pas | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/irdecoderunit.pas b/irdecoderunit.pas index fa00f69..4063085 100644 --- a/irdecoderunit.pas +++ b/irdecoderunit.pas @@ -27,7 +27,7 @@ type letzterBefehl, zustand: longword; _watte,_debug: boolean; - debugDatei: textfile; + debugDatei: textFile; procedure init; procedure tastenDruckAnhaengen(lw: longword); procedure befehlAusfuehren(cmd,params: string); @@ -78,10 +78,10 @@ var begin inherited create; if (length(zeichenTabelle)=0) or (length(befehlsTabelle)=0) then begin - setlength(zeichenTabelle,0); + setLength(zeichenTabelle,0); for i:=0 to length(befehlsTabelle)-1 do befehlsTabelle[i].free; - setlength(befehlsTabelle,0); + setLength(befehlsTabelle,0); befehleKonfLesen(konfigName); end; @@ -90,14 +90,14 @@ begin if _debug then begin tmpDir:=trim(mkTemp('-d /tmp/fernbedienung.XXXXXX')); - assignFile(debugDatei,tmpdir+'/debug'); + assignFile(debugDatei,tmpDir+'/debug'); rewrite(debugDatei); - closefile(debugDatei); - ttySLeser:=tLeseProzess.create(inputName,tmpdir+'/kopie',1) + closeFile(debugDatei); + ttySLeser:=tLeseProzess.create(inputName,tmpDir+'/kopie',1) end else ttySLeser:=tLeseProzess.create(inputName,1); - fillchar(eingabePuffer,sizeof(eingabePuffer),#0); + fillchar(eingabePuffer,sizeOf(eingabePuffer),#0); init; end; @@ -115,7 +115,7 @@ begin letzterEmpf:=false; ersterEmpf:=false; zustand:=0; - setlength(eingabePuffer,0); + setLength(eingabePuffer,0); eingabeLaenge:=0; end; @@ -125,7 +125,7 @@ var begin if _debug then begin append(debugDatei); - writeln(debugDatei,inttohex(lw,4)); + writeln(debugDatei,intToHex(lw,4)); closeFile(debugDatei); end; @@ -134,7 +134,7 @@ begin if _debug then begin append(debugDatei); - writeln(debugDatei,'-> '+inttohex(lw,4),' ',byte(empf),' ',byte(letzterEmpf),' ',inttohex(letztesZeichen[empf],4),' ',byte(ersterEmpf)); + writeln(debugDatei,'-> '+intToHex(lw,4),' ',byte(empf),' ',byte(letzterEmpf),' ',intToHex(letztesZeichen[empf],4),' ',byte(ersterEmpf)); closeFile(debugDatei); end; @@ -143,7 +143,7 @@ begin if empf=ersterEmpf then begin if eingabeLaenge>=length(eingabePuffer) then - setlength(eingabePuffer,eingabeLaenge+1024); + setLength(eingabePuffer,eingabeLaenge+1024); eingabePuffer[eingabeLaenge]:=(findeZeichen(lw and not $08) shl 1) or byte((lw and $08) <> 0); if ((not eingabePuffer[eingabeLaenge]) and (not 1)) <> 0 then inc(eingabeLaenge); @@ -201,7 +201,7 @@ begin raise exception.create('Sanity-Check nicht bestanden: mi<>ma nach Bisektion!'); result:=mi; if zeichenTabelle[result]<>lw then begin - writeln(stderr,'Kann Tastencode '''+inttohex(lw,4)+''' nicht finden, ignoriere Taste!'); + writeln(stderr,'Kann Tastencode '''+intToHex(lw,4)+''' nicht finden, ignoriere Taste!'); result:=not 0; end; end; @@ -230,7 +230,7 @@ begin raise exception.create('Sanity-Check nicht bestanden: mi<>ma nach Bisektion!'); result:=mi; if (befehlsTabelle[result].nummer<>lw) or (befehlsTabelle[result].altZustand>zustand) then - raise exception.create('Kann Befehl Nummer '''+inttohex(lw,4)+''' im Zustand '+inttostr(zustand)+' nicht finden!'); + raise exception.create('Kann Befehl Nummer '''+intToHex(lw,4)+''' im Zustand '+intToStr(zustand)+' nicht finden!'); end; procedure tIRDecoder.befehlVlltEntprellen(num: longint); @@ -368,11 +368,11 @@ end; constructor tBefehl.create; begin inherited create; - fillchar(cmd,sizeof(cmd),#0); + fillchar(cmd,sizeOf(cmd),#0); cmd:=''; - fillchar(params,sizeof(params),#0); + fillchar(params,sizeOf(params),#0); params:=''; - fillchar(neutralParams,sizeof(neutralParams),#0); + fillchar(neutralParams,sizeOf(neutralParams),#0); neutralParams:=''; end; @@ -397,19 +397,19 @@ begin if not konfigDatei.unfoldMacros then raise exception.create('Fehler beim Entfalten der Makros in '''+konfigName+'''!'); while konfigDatei.readln(zeile) do begin // Iteration über die Zeichen - setlength(zeichenTabelle,length(zeichenTabelle)+1); + setLength(zeichenTabelle,length(zeichenTabelle)+1); if copy(zeile,length(zeile),1)<>':' then raise exception.create('Die erste Zeile einer Befehlsdefinition muss mit einem : enden, '''+zeile+''' tut das nicht!'); delete(zeile,length(zeile),1); taste:=trim(zeile); - zeichenTabelle[length(zeichenTabelle)-1]:=strtoint(taste); + zeichenTabelle[length(zeichenTabelle)-1]:=strToInt(taste); cStat:=0; repeat // Iteration über die Befehle pro Zeichen if not konfigDatei.readln(zeile) then raise exception.create('Unerwartetes Dateiende in '''+konfigName+''' (Taste '+taste+')!'); if zeile='Ende' then break; if startetMit('Befehl:',zeile) then begin - setlength(befehlsTabelle,length(befehlsTabelle)+1); + setLength(befehlsTabelle,length(befehlsTabelle)+1); befehlsTabelle[length(befehlsTabelle)-1]:=tBefehl.create; befehlsTabelle[length(befehlsTabelle)-1].nummer:=length(zeichenTabelle)-1; befehlsTabelle[length(befehlsTabelle)-1].neutralParams:=''; @@ -428,11 +428,11 @@ begin continue; end; if startetMit('altZustand:',zeile) then begin - befehlsTabelle[length(befehlsTabelle)-1].altZustand:=strtoint(zeile); + befehlsTabelle[length(befehlsTabelle)-1].altZustand:=strToInt(zeile); continue; end; if startetMit('neuZustand:',zeile) then begin - befehlsTabelle[length(befehlsTabelle)-1].neuZustand:=strtoint(zeile); + befehlsTabelle[length(befehlsTabelle)-1].neuZustand:=strToInt(zeile); continue; end; if startetMit('einzelKlick:',zeile) then begin @@ -546,7 +546,7 @@ begin inc(li); dec(re); end; - fillchar(tmp,sizeof(tBefehl),#0); + fillchar(tmp,sizeOf(tBefehl),#0); if li<>re+1 then raise exception.create('Sanity-Check nicht bestanden: li<>re+1 kann beim Quicksort nicht sein!'); if re=bis then @@ -609,14 +609,14 @@ end; var i: longint; initialization - fillchar(befehlsTabelle,sizeof(befehlsTabelle),#0); - setlength(befehlsTabelle,0); - fillchar(zeichenTabelle,sizeof(zeichenTabelle),#0); - setlength(zeichenTabelle,0); + 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); + setLength(befehlsTabelle,0); + setLength(zeichenTabelle,0); end. |