From 0192e2c030acf2e72c1314657b5c8e7920a59d81 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 19 Nov 2015 12:53:51 +0100
Subject: pgz als Typ hinzugefügt
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 fhunit.pas | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'fhunit.pas')

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;
-- 
cgit v1.2.3-54-g00ecf