pgz als Typ hinzugefügt

1 files changed, 2 insertions, 8 deletions

diff --git a/fhunit.pas b/fhunit.pas
index 51edb6a..f4e5edc 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -556,10 +556,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;
@@ -600,10 +597,7 @@ begin
     pLongint(pt)^:=314159265; // magische Zahl
     (pLongint(pt)+1)^:=0;     // Version
     werte.dump(pt+2*sizeof(longint));
-    if rightStr(nach,3)='.gz' then
-      saveToGz(nach,pt,i+2*sizeof(longint))
-    else
-      saveToFile(nach,pt,i+2*sizeof(longint));
+    saveToGeneric(nach,pt,i+2*sizeof(longint));
     freemem(pt);
   end;
 end;