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?
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
