summaryrefslogtreecommitdiff
path: root/dateibeziehungen.pas
diff options
context:
space:
mode:
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r--dateibeziehungen.pas10
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);