Jakie operacje powinienem wykona gdy zamykam formę, w której korzystam klasy:
TEngine=class(Tthread)
protected
procedure execute; override;
end;
procedure TEngine.execute;
begin
inherited;
freeonterminate:=true;
while (form10.mecz.hset<3) and (form10.mecz.aset<3) do begin
if form10.czekaj=0 then
form10.mecz.play;
end;
end;
Klasa za pomocą wątków rozgrywa cały czas kolejne akcję meczu :) lub czeka az pozwoli jej na to user. W pewnym momencie chce zakończyc działanie formy, zakłądając ze kiedyś utworzę ją ponownie i będe korzystał również z klasy TEngine. Jeśli nie bede po niej sprzątał to za którymś razem tworząc ją ponownie otrzymam komunikat o naruszeniu pamięci. Czy wystarczy:
procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
engine.terminate;
engine.free;
end;
Czy możecie mi pomóc?