Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository

/[bad-mp3player]/Unit1.pas

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by yamat0jp, Tue Jul 28 08:41:38 2015 UTC revision 3 by yamat0jp, Tue Jul 28 12:15:19 2015 UTC
# Line 69  begin Line 69  begin
69      MediaPlayer1.Stop;      MediaPlayer1.Stop;
70    ListView1.ClearItems;    ListView1.ClearItems;
71    Form3.Show;    Form3.Show;
72    if Assigned(th) = true then    if th <> nil then
73    begin    begin
74      th.Terminate;      th.Terminate;
75      th.WaitFor;      th.WaitFor;
76      th.Free;      FreeAndNil(th);
77    end;    end;
78    th := TSearchMP3.Create;    th := TSearchMP3.Create;
79  end;  end;
# Line 153  end; Line 153  end;
153  procedure TForm1.FormDestroy(Sender: TObject);  procedure TForm1.FormDestroy(Sender: TObject);
154  begin  begin
155    Action2Execute(Sender);    Action2Execute(Sender);
156    if Assigned(th) = true then    if th <> nil then
157    begin    begin
158      th.Terminate;      th.Terminate;
159      th.WaitFor;      th.WaitFor;
Legend:
Removed from v.2  
changed lines
  Added in v.3
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help