Vraag over onderstaande code. Moet ik na het aanroepen t := TSendThread.Create(1); ook nog iets doen. Bijvoorbeeld iets vrijgeven of zo. Ik ga straks in werkelijkheid (virtueel) een paar keer per minuut op de “Button” klikken. En dan wil ik niet dat mijn geheugen vol loopt met allemaal gestarte threads;-)
Of is alles klaar en opgeruimd als TSendThread.Execute; uitgevoerd is.
Code:type TSendThread = class(TThread) private MyValue: integer; protected procedure Execute; override; public constructor Create(aMyValue: integer); end; constructor TSendThread.Create(aMyValue: integer); begin inherited Create(False); fMyValue: integer := aMyValue; end; procedure TSendThread.Execute; begin // use fMyValueas needed... end; procedure TForm1.Button1Click(Sender: TObject); var t : TSendThread; begin t := TSendThread.Create(1); end;
Bookmarks