HILFE: Probleme mit Beispielprogramm-Geht das nur mir so???

gunman · Hält's aus hier Beiträge: 4

Bin gerade dabei einen Delphi Thread in einer Anwendung zu steuern, soll heissen ich will Ihn mit thrdobject.Free terminieren. Starten und Ausführen vom Thread Code hat bis dahin funktioniert. Das Formular lässt sich noch verschieben thread führt munter einen Testzähler aus der per Synchronize in ein Memofeld geschrieben wird. Nach dem Aufruf von Free oder allen anderen Methoden die mit dem Beenden des Threads zu tun haben hängt sich das Programm jedoch auf! Strg+F2 einzige Möglichkeit zu Beenden!!! :cry:

Das gleiche passiert auch mit dem mitgeliefertem Threaddemo aus Delphi6\Help\examples\prgrsbar\pg1.dpr.
Diese Anwendung bleibt schon beim Button CreateThread stehen.
:evil:

Was mach ich falsch? Sind irgendwelche Compileranweisungen falsch gesetzt?

besten Dank schon mal für Euere Hilfe :!:

Gun

gunman · Hält's aus hier Beiträge: 4

i ist global deklariert;

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    testThrd:= TSpeedThread.Create( FALSE );
//    InitThread(  );
  end;

  procedure TForm1.AddEntry(  );
  begin
    Form1.Memo2.Lines.Add( IntToStr( i ) );
    Form1.Caption:= IntToStr( i );
  end;

  procedure TSpeedThread.Execute(  );
  begin
    i:= 0;
    while TRUE do
      begin
        Sleep(10);
        inc(i);
        Synchronize( Form1.AddEntry );
      end;
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    testThrd.Free;
  end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme