pgz als Typ hinzugefügt

1 files changed, 2 insertions, 8 deletions

diff --git a/pegelunit.pas b/pegelunit.pas
index d5fd5a5..bfa1d6b 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -525,10 +525,7 @@ begin
     exit;
   end;
 
-  if rightStr(von,3)='.gz' then
-    loadFromGz(von,pt,len)
-  else
-    loadFromFile(von,pt,len);
+  loadFromGeneric(von,pt,len);
 
   if pLongint(pt)^ <> 314159265 then begin // magische Zahl nicht gefunden -> Rückfallebene: Text!
     sl:=tMyStringList.create;
@@ -618,10 +615,7 @@ begin
       werte[ps].dump(pt+i);
       i:=i+werte[ps].size;
     end;
-    if rightStr(nach,3)='.gz' then
-      saveToGz(nach,pt,len)
-    else
-      saveToFile(nach,pt,len);
+    saveToGeneric(nach,pt,len);
     freemem(pt);
   end;
 end;