From 9b75646e386074fae0bc6002a0d32eaaa7fb0d95 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 17 Nov 2015 16:24:24 +0100
Subject: Dateien können jetzt komprimiert abgespeichert werden
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 fhunit.pas | 42 +++++++++++++++++++-----------------------
 1 file changed, 19 insertions(+), 23 deletions(-)

(limited to 'fhunit.pas')

diff --git a/fhunit.pas b/fhunit.pas
index bfd6899..3c7aec6 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -110,7 +110,7 @@ const
 
 implementation
 
-uses unit1, math, systemUnit;
+uses unit1, math, myStringListUnit;
 
 // tMessPunkt ******************************************************************
 
@@ -450,7 +450,7 @@ end;
 
 procedure tMessPunkte.laden(von: string);
 var
-  f: textfile;
+  f: tMyStringList;
   s: string;
   i: longint;
 begin
@@ -459,13 +459,15 @@ begin
     raise exception.create('Messwertedatei '''+von+''' existiert nicht!');
     exit;
   end;
-  assignfile(f,von);
-  reset(f);
-  while not eof(f) do begin
-    readln(f,s);
+  f:=tMyStringList.create;
+  if rightStr(von,3)='.gz' then
+    f.loadFromGz(von)
+  else
+    f.loadFromFile(von);
+  while f.readln(s) do
     werte.add(s);
-  end;
-  closefile(f);
+  f.free;
+
   if length(muts)=0 then begin
     setlength(muts,20);
     for i:=0 to length(muts)-1 do
@@ -475,23 +477,17 @@ end;
 
 procedure tMessPunkte.speichern(nach: string);
 var
-  dateischonda: boolean;
-  f:            textfile;
-  i:            longint;
+  f: tMyStringList;
+  i: longint;
 begin
-  dateischonda:=fileexists(nach);
-  if dateischonda then
-    assignfile(f,mkTemp(nach+'.XXXXXX'))
-  else
-    assignfile(f,nach);
-  rewrite(f);
+  f:=tMyStringList.create;
   for i:=0 to werte.count-1 do
-    writeln(f,werte[i].schreibe);
-  closefile(f);
-  if dateischonda then begin
-    deletefile(nach);
-    rename(f,nach);
-  end;
+    f.add(werte[i].schreibe);
+  if rightStr(nach,3)='.gz' then
+    f.saveToGz(nach)
+  else
+    f.saveToFile(nach);
+  f.free;
 end;
 
 procedure tMessPunkte.achsenZeichnen(zuZeichnen: tMessGroeszenSet; startZeit,stopZeit: extended);
-- 
cgit v1.2.3-54-g00ecf