TThread abfragen, ob beendet

[Christian.Ossi]

Thread-Klasse

Delphi-Quellcode:

FTPUpload = Class(TThread) 
Protected 
Procedure Execute; Override; 
Private 
HTTPSocket: TIdHTTP; 
FTPSocket: TIdFTP; 
    Datei1: ShortString; 
    Datei2: ShortString; 
      Neu1: ShortString; 
      Neu2: ShortString; 
Public 
Constructor Create(Const FDatei1,FNeu1,FDatei2,FNeu2: ShortString); 
Destructor Destroy; Override; 
End;

Klassenbefehl der nicht funktioniert (Methodenbezeichner erwartet)

While Not FTPUpload.Terminated Do Application.ProcessMessages;