Also..
Ich habe jetzt die Unit nochmal komplett aus dem Projekt gehauen und von Delphi ein neues Thread-Objekt erzeugen lassen, dem ich meine Prozeduren wieder hinzugefügt habe. Nur leider hat es nicht geholfen. Ich habe auch probiert mal keine eigene TCheckThread.Create Prozedur zu benutzen, sondern die von TThread. Alles kein Erfolg. Mir gehen so langsam die Ideen aus. Hat keiner mehr eine Idee?

Also dein Sourcecode ist noch sehr suboptimal.
Ich weiss nich ob es dir aufgefallen ist, aber dein Code besteht aus permanenten Wiederholungen.
Das Ganze wird sehr unübersichtlich und da nicht mal Kommentare vorhanden sind versteht man eigentlich nur "Bahnhof".
Guter Code soll aber selbsterklärend und ohne Wiederholungen sein.

Hier ein kleines Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

function TCheckThread.calcpoints(calcablestring:string):integer;
var calcedstats:wowitem;
    statvalue:integer;
    calcitemarray: array[0..15] of wowitem;
    i:integer;
begin
result:=0;
for i:=0 to 15 do begin
  calcitemarray[i]{*}:=unit1.wowitemarray[i];
  statvalue:=0;
  if (calcablestring[2*i+1]='1')then begin
    statvalue:=round(calcitemarray[i]{*}.hit*0.4);
    calcitemarray[i]{*}.hit:=calcitemarray[i]{*}.hit-statvalue;
  end;

Warum reitest du ständig auf calcitemarray[i] herum?
Verwendet eine einfache lokale Variable var item:wowitem; und die Sache wird schon klarer.
Du verwendest 16 Mal den Ausdruck calcablestring[2*i+1] ; das tut doch in den Augen weh.
Auch hier: verwende eine lokale Zwischenvariable (Datentyp char)!

Deine Funktion/Methoden sind elendlang; sie passen nicht auf eine Seite und man muss ständig hoch und runterscrollen.
Halte deine Funktionen kurz und verwende Unterfunktionen!

Wenn du diese beiden Regeln beachtest kannst du deinen Code deutlich verbessern.

Also ich finde es ja sehr hilfreich, dass ihr versucht mir zu helfen, meinen Code zu verbessern, aber ich würde gerne erst einmal Alles zum laufen zu bringen, bevor ich zu optimieren beginne. Würde es euch denn helfen mein aktuelles Problem zu lösen, wenn ich meinen Code auskommentiere etc.?

Da du sagst, das Execute wird gar nicht ausgeführt, kannst du den Code darin auch weglassen bzw. auf eine Art Platzhalter reduzieren. Damit fällt schon mal ein großer Verwirrfaktor raus.

Wenn ich die TCheckthread.execute komplett raus kommentiere, dann bekomme ich eine EAbstractError Exception. Nehme ich den Code wieder rein, dann wird er nicht ausgeführt.

Im übrigen funktioniert es auch nicht, wenn ich sämtliche Zugriffe auf Formular 1 entferne. Ich weis aber auch, dass der Code in der TCheckthread.execute funktioniert, weil wenn ich diese Prozedur von Unit 1 ausführe, dann wird es zwar nicht als Thread ausgeführt, aber ich komme zu meinem Ergebnis.

Edit: Übrigens kann man das Bild nicht sehen @sx2008

Was genau bringt dich denn zu dem Schluss, daß Execute nicht ausgeführt wird?

Ich habe versucht über showmessage und über ein memo auf Form1 eine Nachricht anzuzeigen. Beides kommt nicht zu stande.

Mir ist aber dabei was Interessantes aufgefallen. Wenn ich den Code ändere, dann wird die execute in einigen, nicht einfach reproduzierbaren Fällen ausgeführt.

Zitat von Murkas:

..aber ich würde gerne erst einmal Alles zum laufen zu bringen

Das ist halt nicht so einfach.
Dein Code sieht z.Zt. so aus
http://n0inf.2dmlimousin.com/wp-cont...ing_messy2.jpg
Ein falscher Draht und nix funktioniert.
Wie soll man so ein Wirrwarr zum laufen bringen?

Du darfst z.B. aus einem Thread heraus nicht direkt auf ein Formular zugreifen weil die VCL nicht threadsicher ist.
In deinem Code passiert das aber dutzende Male.