überflüssige Threaddestruktoren und Fertigsetzungen in epostunit.pas beseitigt

1 files changed, 0 insertions, 80 deletions

diff --git a/epostunit.pas b/epostunit.pas
index d25dcfb..ff533cf 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -210,7 +210,6 @@ type
     xMi,xMa,tMi,tMa,tOf,xOf: longint;
     pW:                      tWerte;
     constructor create(lk: pTLiKo; pWerte: tWerte; xMin,xMax,tMin,tMax,xOff,tOff: longint);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tQuotientThread = class(tLogThread)
@@ -218,14 +217,12 @@ type
     xMi,xMa,tMi,tMa,tOf,xOf: longint;
     dend,sor,quot:           tWerte;
     constructor create(dividend, divisor, quotient: tWerte; epsilon: extended; xMin,xMax,tMin,tMax,xOff,tOff: longint);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tProduktThread = class(tLogThread)
     xMi,xMa,tMi,tMa,tOf,xOf: longint;
     f1,f2,pro:               tWerte;
     constructor create(faktor1, faktor2, produkt: tWerte; xMin,xMax,tMin,tMax,xOff,tOff: longint);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tBilderthread = class(tLogThread)
@@ -251,14 +248,12 @@ type
     xmin,xmax,tmin,tmax: longint;
     w:                   tWerte;
     constructor create(xmi,xma,tmi,tma: longint; const werte: tWerte);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tSpiegelThread = class(tLogThread)
     tmin,tmax: longint;
     pW:        tWerte;
     constructor create(tmi,tma: longint; pWerte: tWerte);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tFFT2dNBThread = class(tLogThread)
@@ -266,7 +261,6 @@ type
     pW:        tWerte;
     nb:        tFFTDatenordnung;
     constructor create(xmi,xma: longint; pWerte: tWerte; endordnung: tFFTDatenordnung);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tFFTThread = class(tLogThread)
@@ -278,7 +272,6 @@ type
     pvFehler:              extended;
     constructor create(werte: tWerte; smin,smax: longint; senkrecht,invers: boolean; const vor,nach: tFFTDatenordnung; fenster: tFenster); overload;
     constructor create(werte: tWerte; smin,smax: longint; senkrecht,invers: boolean; algorithmus: tFFTAlgorithmus; fenster: tFenster); overload;
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tGauszFitThread = class(tLogThread)
@@ -298,7 +291,6 @@ type
     pvFehler: extended;
     algo:     tFFTAlgorithmus;
     constructor create(quelle,ziel: tWerte; xMin,xMax: longint; wavelet: tWavelet);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tKonturAusWertenThread = class(tLogThread)
@@ -315,7 +307,6 @@ type
     xmi,xma,tmi,tma,xof,tof: longint;
     rtg:                     tIntegrationsRichtung;
     constructor create(quelle, ziel: tWerte; xmin, xmax, tmin, tmax, xoff, toff: longint; richtung: tIntegrationsRichtung);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tSortiereNachYThread = class(tLogThread)
@@ -323,7 +314,6 @@ type
     vo,bi,mt:      longint;
     erfolg:        boolean;
     constructor create(K: tKontur; threads,von,bis: longint);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
   tBefehlThread = class(tLogThread)
@@ -362,7 +352,6 @@ type
     vb,nb:           tTransformation;
     va,na:           longint;
     constructor create(quelle,ziel: tWerte; xMin,xMax,tMin,tMax: longint; zielpositionen: tIntPointArray; zielgewichte: tExtPointArray; zielanzahlen: tExtendedArray; Vorbearbeitungen,Nachbearbeitungen: tTransformation; vorAnz,nachAnz: longint);
-    destructor destroy; override;
     procedure stExecute; override;
   end;
 
@@ -4309,11 +4298,6 @@ begin
   suspended:=false;
 end;
 
-destructor tLiKoThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tLiKoThread.stExecute;
 var
   i,j,k:    longint;
@@ -4374,7 +4358,6 @@ begin
   if in0 then gibAus('Nur Nullen im Input!',1);
   if out0 then gibAus('Nur Nullen im Output!',1);
   gibAus('... und fertig!',1);
-  fertig:=true;
 end;
 
 // tQuotientThread *************************************************************
@@ -4396,11 +4379,6 @@ begin
   suspended:=false;
 end;
 
-destructor tQuotientThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tQuotientThread.stExecute;
 var
   i,j:        longint;
@@ -4584,7 +4562,6 @@ begin
   if i02 then gibAus('Nur Nullen im Divisor-Input!',1);
   if o0 then gibAus('Nur Nullen im Output!',1);
   gibAus('... und fertig!',1);
-  fertig:=true;
 end;
 
 // tProduktThread *************************************************************
@@ -4605,11 +4582,6 @@ begin
   suspended:=false;
 end;
 
-destructor tProduktThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tProduktThread.stExecute;
 var
   i,j:        longint;
@@ -4744,7 +4716,6 @@ begin
   if i02 then gibAus('Nur Nullen im 2.Faktor-Input!',1);
   if o0 then gibAus('Nur Nullen im Output!',1);
   gibAus('... und fertig!',1);
-  fertig:=true;
 end;
 
 // tBilderthread ***************************************************************
@@ -4916,7 +4887,6 @@ begin
         gibAus('Thread '+inttostr(nummer)+' hat nur Nullen!',1);
     end;
   gibAus('Thread '+inttostr(nummer)+' fertig!',1);
-  fertig:=true;
 end;
 
 procedure tBilderThread.initAnzahlensFuerKontur;
@@ -4946,11 +4916,6 @@ begin
   suspended:=false;
 end;
 
-destructor tDichteThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tDichteThread.stExecute;
 begin
   gibAus('Dichtethread gestartet!',1);
@@ -4960,7 +4925,6 @@ begin
     gExtended:  w.eWerte.gibMinMaxDichten(minDichte,maxDichte,xmin,xmax,tmin,tmax);
   end{of case};
   gibAus('Dichtethread fertig!',1);
-  fertig:=true;
 end;
 
 // tFFTThread ******************************************************************
@@ -4992,11 +4956,6 @@ begin
   suspended:=false;
 end;
 
-destructor tFFTThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tFFTThread.stExecute;
 begin
   gibAus('FFTthread gestartet ('+inttostr(pW._xsteps)+' x '+inttostr(pW._tsiz)+': '+inttostr(smi)+' .. '+inttostr(sma)+'): '+algo.className+' ...',1);
@@ -5006,7 +4965,6 @@ begin
     gExtended:  erfolg:=pW.eWerte.fft(smi,sma,sen,inv,algo,fen,pvFehler);
   end{of case};
   gibAus('... und fertig! ',1);
-  fertig:=true;
 end;
 
 // tSpiegelThread **************************************************************
@@ -5021,11 +4979,6 @@ begin
   suspended:=false;
 end;
 
-destructor tSpiegelThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tSpiegelThread.stExecute;
 begin
   gibAus('Spiegelthread gestartet: '+inttostr(tMin)+'-'+inttostr(tMax)+' ...',1);
@@ -5035,7 +4988,6 @@ begin
     gExtended:  pW.eWerte.spiegle(tMin,tMax);
   end{of case};
   gibAus('... und fertig!',1);
-  fertig:=true;
 end;
 
 // tFFT2dNBThread **************************************************************
@@ -5051,11 +5003,6 @@ begin
   suspended:=false;
 end;
 
-destructor tFFT2dNBThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tFFT2dNBThread.stExecute;
 begin
   gibAus('FFT2d-Nachbearbeitungsthread gestartet: '+inttostr(xMin)+'-'+inttostr(xMax)+' ...',1);
@@ -5065,7 +5012,6 @@ begin
     gExtended:  pW.eWerte.fft2dNachbearbeitungB(xMin,xMax,nb);
   end{of case};
   gibAus('... und fertig!',1);
-  fertig:=true;
 end;
 
 // tGauszFitThread *************************************************************
@@ -5133,11 +5079,6 @@ begin
   suspended:=false;
 end;
 
-destructor tKorrelThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tKorrelThread.stExecute;
 var
   i,j,k,hl:        longint;
@@ -5265,7 +5206,6 @@ begin
   if in0 then gibAus('Nur Nullen im Input der Korrelation!',1);
   if out0 then gibAus('Nur Nullen im Output der Korrelation!',1);
   gibAus('... und fertig!',1);
-  fertig:=true;
 end;
 
 // tKontur *********************************************************************
@@ -5787,7 +5727,6 @@ begin
     gDouble:   punkte:=w.dWerte.findeSchwellwerte(xmi,xma,tmi,tma,s);
     gExtended: punkte:=w.eWerte.findeSchwellwerte(xmi,xma,tmi,tma,s);
   end{of case};
-  fertig:=true;
 end;
 
 // tIntegralThread *************************************************************
@@ -5808,11 +5747,6 @@ begin
   suspended:=false;
 end;
 
-destructor tIntegralThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tIntegralThread.stExecute;
 begin
   gibAus('Integralthread gestartet ('+inttostr(xmi)+'-'+inttostr(xma)+'x'+inttostr(tmi)+'-'+inttostr(tma)+') '+
@@ -5845,7 +5779,6 @@ begin
       end{of case};
   end{of case};
   gibAus('... und fertig',1);
-  fertig:=true;
 end;
 
 // tSortiereNachYThread ********************************************************
@@ -5862,17 +5795,11 @@ begin
   suspended:=false;
 end;
 
-destructor tSortiereNachYThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tSortiereNachYThread.stExecute;
 begin
   gibAus('Sortierthread gestartet ('+inttostr(vo)+'-'+inttostr(bi)+') -> x'+inttostr(mt)+' ...',1);
   erfolg:=Kont.sortiere_nach_y(mt,vo,bi);
   gibAus(' ... und fertig',1);
-  fertig:=true;
 end;
 
 // tBefehlThread ***************************************************************
@@ -5989,7 +5916,6 @@ begin
   end
   else
     gibAus('Externer Befehl hätte nichts zu tun und wird daher gar nicht erst gestartet.',1);
-  fertig:=true;
 end;
 
 // tLeseThread *****************************************************************
@@ -6045,7 +5971,6 @@ begin
         exit;
   end{of case};
   gibAus('LeseThread beendet',1);
-  fertig:=true;
 end;
 
 // tVerzerrInitThread **********************************************************
@@ -6108,11 +6033,6 @@ begin
   suspended:=false;
 end;
 
-destructor tVerzerrThread.destroy;
-begin
-  inherited destroy;
-end;
-
 procedure tVerzerrThread.stExecute;
 begin
   gibAus('Verzerrthread gestartet '+floattostr(qu._minW)+' '+floattostr(qu._maxW),1);