'Sergey-Trace' nun lesbar

1 files changed, 45 insertions, 0 deletions

diff --git a/typenunit.pas b/typenunit.pas
index b1dfdb4..036c06e 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -46,6 +46,12 @@ type
     constructor create; overload;
     destructor destroy; override;
   end;
+  tSergeyInputDateiInfo = class (tGenerischeInputDateiInfo)
+    FeldNummer:       longint;
+    constructor create(Vorlage: tGenerischeInputDateiInfo); overload;
+    constructor create; overload;
+    destructor destroy; override;
+  end;
   tPipeInputDateiInfo = class (tGenerischeInputDateiInfo)
     Analysator:     string;
     bytesPerSample: longint;
@@ -92,6 +98,7 @@ type
     PhaseSpaceVorlage: tPhaseSpaceInputDateiInfo;
     SpaceTimeVorlage:  tSpaceTimeInputDateiInfo;
     TraceVorlage:      tTraceInputDateiInfo;
+    SergeyVorlage:     tSergeyInputDateiInfo;
     PipeVorlage:       tPipeInputDateiInfo;
     property Fehlerbehebungskommando: string
       read _Fehlerbehebungskommando
@@ -575,6 +582,28 @@ begin
   inherited destroy;
 end;
 
+// tSergeyInputDateiInfo *******************************************************
+
+constructor tSergeyInputDateiInfo.create(Vorlage: tGenerischeInputDateiInfo);
+begin
+  inherited create(Vorlage);
+  if Vorlage is tSergeyInputDateiInfo then
+    FeldNummer:=(Vorlage as tSergeyInputDateiInfo).FeldNummer
+  else
+    FeldNummer:=0;
+end;
+
+constructor tSergeyInputDateiInfo.create;
+begin
+  inherited create;
+  FeldNummer:=0;
+end;
+
+destructor tSergeyInputDateiInfo.destroy;
+begin
+  inherited destroy;
+end;
+
 // tPipeInputDateiInfo *********************************************************
 
 constructor tPipeInputDateiInfo.create(Vorlage: tGenerischeInputDateiInfo);
@@ -640,6 +669,7 @@ begin
   PhaseSpaceVorlage:=tPhaseSpaceInputDateiInfo.create;
   SpaceTimeVorlage:=tSpaceTimeInputDateiInfo.create;
   TraceVorlage:=tTraceInputDateiInfo.create;
+  SergeyVorlage:=tSergeyInputDateiInfo.create;
   PipeVorlage:=tPipeInputDateiInfo.create;
   fillchar(_Name,sizeof(_Name),#0);
   Name:=SpaceTimeVorlage.Name;
@@ -668,6 +698,7 @@ begin
   PhaseSpaceVorlage.free;
   SpaceTimeVorlage.free;
   TraceVorlage.free;
+  SergeyVorlage.free;
   PipeVorlage.free;
   _Name:='';
   _Fehlerbehebungskommando:='';
@@ -681,6 +712,7 @@ begin
   PhaseSpaceVorlage.Fehlerbehebungskommando:=f;
   SpaceTimeVorlage.Fehlerbehebungskommando:=f;
   TraceVorlage.Fehlerbehebungskommando:=f;
+  SergeyVorlage.Fehlerbehebungskommando:=f;
   PipeVorlage.Fehlerbehebungskommando:=f;
 end;
 
@@ -690,6 +722,7 @@ begin
   PhaseSpaceVorlage.Name:=n;
   SpaceTimeVorlage.Name:=n;
   TraceVorlage.Name:=n;
+  SergeyVorlage.Name:=n;
   PipeVorlage.Name:=n;
 end;
 
@@ -699,6 +732,7 @@ begin
   PhaseSpaceVorlage.Gamma:=g;
   SpaceTimeVorlage.Gamma:=g;
   TraceVorlage.Gamma:=g;
+  SergeyVorlage.Gamma:=g;
   PipeVorlage.Gamma:=g;
 end;
 
@@ -708,6 +742,7 @@ begin
   PhaseSpaceVorlage.tstart:=t;
   SpaceTimeVorlage.tstart:=t;
   TraceVorlage.tstart:=t;
+  SergeyVorlage.tstart:=t;
   PipeVorlage.tstart:=t;
 end;
 
@@ -717,6 +752,7 @@ begin
   PhaseSpaceVorlage.tstop:=t;
   SpaceTimeVorlage.tstop:=t;
   TraceVorlage.tstop:=t;
+  SergeyVorlage.tstop:=t;
   PipeVorlage.tstop:=t;
 end;
 
@@ -726,6 +762,7 @@ begin
   PhaseSpaceVorlage.xstart:=x;
   SpaceTimeVorlage.xstart:=x;
   TraceVorlage.xstart:=x;
+  SergeyVorlage.xstart:=x;
   PipeVorlage.xstart:=x;
 end;
 
@@ -735,6 +772,7 @@ begin
   PhaseSpaceVorlage.xstop:=x;
   SpaceTimeVorlage.xstop:=x;
   TraceVorlage.xstop:=x;
+  SergeyVorlage.xstop:=x;
   PipeVorlage.xstop:=x;
 end;
 
@@ -744,6 +782,7 @@ begin
   PhaseSpaceVorlage.t0abs:=t;
   SpaceTimeVorlage.t0abs:=t;
   TraceVorlage.t0abs:=t;
+  SergeyVorlage.t0abs:=t;
   PipeVorlage.t0abs:=t;
 end;
 
@@ -753,6 +792,7 @@ begin
   PhaseSpaceVorlage.groeszenFaktor:=g;
   SpaceTimeVorlage.groeszenFaktor:=g;
   TraceVorlage.groeszenFaktor:=g;
+  SergeyVorlage.groeszenFaktor:=g;
   PipeVorlage.groeszenFaktor:=g;
 end;
 
@@ -762,6 +802,7 @@ begin
   PhaseSpaceVorlage.Genauigkeit:=g;
   SpaceTimeVorlage.Genauigkeit:=g;
   TraceVorlage.Genauigkeit:=g;
+  SergeyVorlage.Genauigkeit:=g;
   PipeVorlage.Genauigkeit:=g;
 end;
 
@@ -771,6 +812,7 @@ begin
   PhaseSpaceVorlage.tsiz:=t;
   SpaceTimeVorlage.tsiz:=t;
   TraceVorlage.tsiz:=t;
+  SergeyVorlage.tsiz:=t;
   PipeVorlage.tsiz:=t;
 end;
 
@@ -780,6 +822,7 @@ begin
   PhaseSpaceVorlage.xsteps:=x;
   SpaceTimeVorlage.xsteps:=x;
   TraceVorlage.xsteps:=x;
+  SergeyVorlage.xsteps:=x;
   PipeVorlage.xsteps:=x;
 end;
 
@@ -793,6 +836,7 @@ procedure tInputDateiInfoVorlagen.wFeldNummer(f: longint);
 begin
   _FeldNummer:=f;
   TraceVorlage.FeldNummer:=f;
+  SergeyVorlage.FeldNummer:=f;
 end;
 
 procedure tInputDateiInfoVorlagen.wAnalysator(a: string);
@@ -835,6 +879,7 @@ begin
   PhaseSpaceVorlage.params:=p;
   SpaceTimeVorlage.params:=p;
   TraceVorlage.params:=p;
+  SergeyVorlage.params:=p;
   PipeVorlage.params:=p;
 end;