Problem mit & Ohne Threads -Integer Performance

**Hallo_Thomas**

Ich experementiere im Moment etwas mit threas herum, Allerdings als ich für das Forum ein zweites ohne jvl erstellen wollte. Lief mein 2.Beispielprogramm konstant langsamer als das erste deswegen, werde ich hier erst mal zwei codes ohne Threads posten

Aus dem ersten Programm, Code läuft execellent schnell!!!

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var x,i:Integer;

begin

  Label1.Caption:='Hallo';

  Form1.JvXPProgressBar1.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    Form1.JvXPProgressBar1.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  Label1.Caption:='Fertig';

    Label2.Caption:='Hallo';

  Form1.JvXPProgressBar2.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    Form1.JvXPProgressBar2.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  Label2.Caption:='Fertig';

end;

Keine Ahnung wieso, doch hier läuft der code extrem langsam

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TThreadSortForm.Button1Click(Sender: TObject);

var x,i:Integer;

begin

  ProgressBar1.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    ProgressBar1.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  ProgressBar2.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    ProgressBar2.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

end;

Also soviel zum vorab Problem.
Mein Ziel war es, diesen Code in 2 Threads zu bringen und ihn da ablaufen zu lassen.Mein Problem dabei ist, das in beiden Beispielprogrammen die Threads meiner meinung nach extrem langsam ablaufen, speziel im vergleich zum ersten Bsp. wo der code ohne Threads wohl 100mal schneller ist.

Ich poste hier mal den kompletten Code von meinem 1.Bsp Programm.

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, JvComponentBase, JvMTComponents, StdCtrls, JvProgressBar,

  JvXPProgressBar;

type

  TForm1 = class(TForm)

    Button1: TButton;

    JvMTManager1: TJvMTManager;

    JvMTThread1: TJvMTThread;

    Label1: TLabel;

    JvXPProgressBar1: TJvXPProgressBar;

    JvXPProgressBar2: TJvXPProgressBar;

    Button2: TButton;

    JvMTThread2: TJvMTThread;

    Label2: TLabel;

    procedure JvMTThread1Execute(Sender: TJvMTThread;

      MTThread: TJvMTSingleThread);

    procedure Button2Click(Sender: TObject);

    procedure JvMTThread2Execute(Sender: TJvMTThread;

      MTThread: TJvMTSingleThread);

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 Form1.JvMTManager1.WaitThreads;

 Form1.JvMTThread1.RunCopy;

 Form1.JvMTThread2.RunCopy;

end;

procedure TForm1.JvMTThread2Execute(Sender: TJvMTThread;

  MTThread: TJvMTSingleThread);

var x,i:Integer;

begin

  Label2.Caption:='Hallo';

  Form1.JvXPProgressBar2.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    Form1.JvXPProgressBar2.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  Label2.Caption:='Fertig';

end;

procedure TForm1.Button2Click(Sender: TObject);

var x,i:Integer;

begin

  Label1.Caption:='Hallo';

  Form1.JvXPProgressBar1.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    Form1.JvXPProgressBar1.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  Label1.Caption:='Fertig';

    Label2.Caption:='Hallo';

  Form1.JvXPProgressBar2.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    Form1.JvXPProgressBar2.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  Label2.Caption:='Fertig';

end;

procedure TForm1.JvMTThread1Execute(Sender: TJvMTThread;

  MTThread: TJvMTSingleThread);

var x,i:Integer;

begin

  Label1.Caption:='Hallo';

  Form1.JvXPProgressBar1.Max:=1000000;

  x:=1;

  for i:=0 to 1000000 do

  begin

    Form1.JvXPProgressBar1.Position:=i;

    x:=x*3+1;

    x:=x div 2+1;

  end;

  Label1.Caption:='Fertig';

end;

end.

Problem mit & Ohne Threads -Integer Performance

Problem mit & Ohne Threads -Integer Performance

Forumregeln