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