Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
21. Nov 2003
mist :mrgreen:
immerhin das mit den der performance war mir nicht neu.
Hatte eine Anwendung geschrieben die 200 Threads verwendet hat.
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
21. Nov 2003
Das liegt wirklich am Rechner:
zu Hause funktionierts unter win98 ohne Probleme.
gleiches Programm funktioniert hier in der Firma unter win2000 nicht.
Der schafft nie mehr als 4 Threads.
:gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
20. Nov 2003
Ich teste Möglichkeiten aus, um später Evolution zu simulieren.
Ich überlege derzeit, wie ich die Aufgaben verteile, was bearbeitet die Umwelt, was verarbeitet eine Zelle etc.
Die Vorstellung dabei mit unabhängigen Threads zu arbeiten und einen Windows-Nachrichtkrieg zu starten gefällt mir dabei sehr gut :lol:
Achso habe ganz vergessen zu erwähnen, dass ich später dann die...
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
20. Nov 2003
Hi Choose,
hmm was so ein paar kleine Veränderungen alles bewirken können.
Habs jetzt nochmal zu Hause mit deiner Variante ausprobiert und läuft einwandfrei.
Aber ich bin bei inherited.create(false) geblieben :mrgreen:
Ein Unterschied nun ist die Zeile:
if not Terminated then
obwohl er in keinen Fall Terminated=false hat, denn er zählt genau bis 100 hoch.
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
20. Nov 2003
Achso, meinst du damit, dass wenn Execute aufgerufen wird,
er mit create eventuell noch nicht fertig ist, und dadurch dann
trouble entsteht?
Mit den Threads hab ich es fast genauso, nur das ich nicht Resume benutze,
sondern inherited create(false) verwende.
Hast du dir dabei was gedacht?
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
20. Nov 2003
Hallo,
Ich habs mal mit Threads ausprobiert und hat auch geklappt mit den Startwerten 100, 99, 98 aber nicht mit 0...da gabs dann erstmal einen üblen Systemhänger :(
Jetzt kann ich nicht mal mehr das Programm starten...da kommt dann eine Fehlermeldung Runtime-Error 216 at Adress ...
und das obwohl ich schon in der Projektdatei einen Breakpoint gesetzt habe.
Hier mal mein Code, ist ja...
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
20. Nov 2003
hmm dann muss ich das ganze wohl doch mit Threads machen, damit PostMessage und Self.free durchlaufen werden.
Die Botschaft wird vom Hauptfenster verarbeitet. Wenn ich mit 100 starte gibts keine Probleme.
Habs auch schon mit Threads probiert, aber da meldet der mir wieder abstrakte Fehler, arghl
Forum: Object-Pascal / Delphi-Language
Delphi
by Minz,
20. Nov 2003
Hallö,
also ich habe mal folgendes ausprobiert:
constructor TMyObject.create(hand: LongWord;c: integer);
begin
inherited create(nil);
FHandle:=hand;
FCount:=c;