Abfrage eingefügt, ob Dateien vorhanden sind -> Absturz abfangen!

1 files changed, 14 insertions, 14 deletions

diff --git a/typenunit.pas b/typenunit.pas
index 3279d4f..54bfca2 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -45,7 +45,7 @@ type
   tIntegrationsRichtung = (irHorizontal,irEinfall,irAusfall);
   tGenerischeInputDateiInfo = class // nur zum Vererben gedacht, nie selbst instanziieren!
     Name,Fehlerbehebungskommando: string;
-    faktor,groeszenFaktor,
+    gamma,groeszenFaktor,
       tstart,tstop,xstart,xstop:  extended;
     Genauigkeit:                  tGenauigkeit;
     xsteps,tsiz,t0abs:            longint;
@@ -85,7 +85,7 @@ type
   tInputDateiInfoVorlagen = class
   private
     _Name,_Fehlerbehebungskommando:    string;
-    _Faktor,_groeszenFaktor,
+    _Gamma,_groeszenFaktor,
       _tstart,_tstop,_xstart,_xstop:   extended;
     _Genauigkeit:                      tGenauigkeit;
     _tsiz,_xsteps,_SpurNummer,_t0abs,
@@ -95,7 +95,7 @@ type
     _params:                           tExtrainfos;
     procedure wFehlerbehebungskommando(f: string);
     procedure wName(n: string);
-    procedure wFaktor(f: extended);
+    procedure wGamma(g: extended);
     procedure wTStart(t: extended);
     procedure wTStop(t: extended);
     procedure wXStart(x: extended);
@@ -121,9 +121,9 @@ type
     property Name: string
       read _Name
       write wName;
-    property Faktor: extended
-      read _Faktor
-      write wFaktor;
+    property Gamma: extended
+      read _Gamma
+      write wGamma;
     property tstart: extended
       read _tstart
       write wTStart;
@@ -466,7 +466,7 @@ begin
  Name:=Vorlage.Name;
  fillchar(Fehlerbehebungskommando,sizeof(Fehlerbehebungskommando),#0);
  Fehlerbehebungskommando:=Vorlage.Fehlerbehebungskommando;
- faktor:=Vorlage.faktor;
+ gamma:=Vorlage.gamma;
  groeszenFaktor:=Vorlage.groeszenFaktor;
  Genauigkeit:=Vorlage.Genauigkeit;
  tsiz:=Vorlage.tsiz;
@@ -486,7 +486,7 @@ begin
  Name:='';
  fillchar(Fehlerbehebungskommando,sizeof(Fehlerbehebungskommando),#0);
  Fehlerbehebungskommando:='';
- faktor:=1;
+ gamma:=1;
  groeszenFaktor:=1;
  Genauigkeit:=gSingle;
  tsiz:=-1;
@@ -649,7 +649,7 @@ begin
  Name:=SpaceTimeVorlage.Name;
  fillchar(_Fehlerbehebungskommando,sizeof(_Fehlerbehebungskommando),#0);
  Fehlerbehebungskommando:=SpaceTimeVorlage.Fehlerbehebungskommando;
- Faktor:=SpaceTimeVorlage.Faktor;
+ Gamma:=SpaceTimeVorlage.Gamma;
  groeszenFaktor:=SpaceTimeVorlage.groeszenFaktor;
  Genauigkeit:=SpaceTimeVorlage.Genauigkeit;
  _tsiz:=SpaceTimeVorlage.tsiz;
@@ -694,12 +694,12 @@ begin
  PipeVorlage.Name:=n;
 end;
 
-procedure tInputDateiInfoVorlagen.wFaktor(f: extended);
+procedure tInputDateiInfoVorlagen.wGamma(g: extended);
 begin
- _Faktor:=f;
- SpaceTimeVorlage.Faktor:=f;
- TraceVorlage.Faktor:=f;
- PipeVorlage.Faktor:=f;
+ _Gamma:=g;
+ SpaceTimeVorlage.Gamma:=g;
+ TraceVorlage.Gamma:=g;
+ PipeVorlage.Gamma:=g;
 end;
 
 procedure tInputDateiInfoVorlagen.wTStart(t: extended);