Threads

**glkgereon**

hmm....sorry luckie...aber die demos sind irgendwie zu kompliziert um da auf anhieb mit einzusteigen

ich werd jetzt nochma die kürzeren demos genau durchgehen...

doch jetzt habbichs

//erldigt wie kann ich mit syncronize eine methode ausgabe aufrufen der ich was übergeben will?
und noch einen:

hier kommt was falsches raus...kann das an der übergabe liegen?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TPiCalc.Ausgabe;

begin

  Form1.Pi_Ausgabe.Value:=Value;

end;

procedure TPiCalc.Execute;

var x, y:Extended;

    PointsIn, PointsAll:Int64;

begin

  randomize;

  while not Terminated do

    begin

    x:=random;

    y:=random;

    if sqr(x)+sqr(y)<1 then inc(PointsIn);

    inc(PointsAll);

    Value:=4*PointsIn/PointsAll;

    Synchronize(Ausgabe);

    end;

end;

eigentlich sollte da 3.14.... rauskommen, es kommt aber 0.068... raus

Threads

Re: Threads

Forumregeln