diff options
Diffstat (limited to 'epostunit.pas')
-rw-r--r-- | epostunit.pas | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/epostunit.pas b/epostunit.pas index 6527891..6800a7d 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -2798,7 +2798,36 @@ begin Zeit:=now; setLength(produktThreads,threads); for i:=0 to length(produktThreads)-1 do - produktThreads[i]:=tProduktThread.create(wertes^[faktor1],wertes^[faktor2],self,round(i*_xSteps/threads),round((i+1)*_xSteps/threads-1),0,_tSiz-1,xMin,tMin,datenOrdnung,konjugiert); + if datenOrdnung = doRes then + produktThreads[i]:= + tProduktThread.create( + wertes^[faktor1], + wertes^[faktor2], + self, + round(i*_xSteps/threads), + round((i+1)*_xSteps/threads-1), + 0, + _tSiz-1, + xMin, + tMin, + datenOrdnung, + konjugiert + ) + else // im Falle komplexen Inhalts müssen wir anders teilen + produktThreads[i]:= + tProduktThread.create( + wertes^[faktor1], + wertes^[faktor2], + self, + round(i*(_xSteps div 2 + 1)/threads), + round((i+1)*(_xSteps div 2 + 1)/threads-1), + 0, + _tSiz div 2, + xMin, + tMin, + datenOrdnung, + konjugiert + ); repeat sleep(10); fertig:=true; |