diff options
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r-- | dateibeziehungen.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index f41e6a6..41b39fc 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -830,7 +830,7 @@ function tMach.liesPruefsummenfile: boolean; var f: textfile; i,j: longint; - gutschlecht: tStringlistBArray; + gutschlecht: tMyStringlistBArray; gefunden,gut: boolean; begin result:=false; @@ -978,13 +978,13 @@ var i,j: longint; ausg: textfile; befehle,geaenderteDateien, - sumDateien: tStringlist; + sumDateien: tMyStringlist; gefunden: boolean; lokTest: tRegExpr; befehl,datei,verzeichnis: string; begin - befehle:=tStringlist.create; - geaenderteDateien:=tStringlist.create; + befehle:=tMyStringlist.create; + geaenderteDateien:=tMyStringlist.create; sumDateien:=dateienMitGueltigerSumme(pruefsummenDatei); for i:=0 to _dats.count-1 do begin gefunden:=(_dats[i].name=pruefsummenDatei) or (_dats[i].name=ausgabeDatei); @@ -1021,7 +1021,7 @@ begin else lokTest.expression:='^('+extractfilepath(ausgabeDatei)+'|'+extractfilepath(pruefsummenDatei)+')/'; for i:=0 to befehle.count-1 do - testeObBefehlLokal(befehle[i],extractfiledir(ausgabeDatei),lokTest); + testeObBefehlLokal(befehle[i],extractfiledir(ausgabeDatei),geaenderteDateien,lokTest); lokTest.free; end; verzeichnis:=extractfilepath(pruefsummenDatei); |