thread legt programm lahm...

[glkgereon]

hmm...ich kapiers net...

also, ich habn programm was pi [...blablabla...] berechnet

nun wollte ich das ganze zu nem thread machen

leider ist es noch im umbau....aber es funzt net...

wenn ichs starte bleibt das proggi hängen...d.h. es sieht aus wie ne endlos-schleife ohn Appl.ProceMsgs dazwischen...

ich hoffe einer kann da mal durchgucken...trotz meines im moment (wegen umbau) eher schlechtem codedesign...

[GeorgPeifer]

bau 'ne bremse rein:

Code:

procedure TPiCalc.Execute;
var x, y:Extended;
begin
  SetName;
  Priority:=tpLower;
  { Thread-Code - MonteCarlo Verfahren}
  randomize;
  while not Terminated do
    begin
    x:=random;
    y:=random;
    if sqr(x)+sqr(y)<1 then inc(FPIn);
    inc(FN);
    if FOutPutLevel=3 then
      begin FPX:=x; FPY:=y; end;
    if FOutPutLevel>1 then FPi:=4*Fpin/FN;
    sleep(20);  //   schlaf mal 20 Millisekunden
    end;
end;

[Luckie]

Ich denke mal, es liegt an der Synchronisation mit dem Hauptthread, also mit dem Fenster.

[glkgereon]

ja, das sleep hilft nix....wie würdest du das machen Luckie?

[Luckie]

Ohne das TThread-Objekt der VCL. Und ein Tutorial zu Threads habe ich auf meiner Homepage.