Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.47 by h677, Tue Dec 6 14:09:23 2005 UTC revision 1.48 by h677, Fri Dec 9 17:06:30 2005 UTC
# Line 104  type Line 104  type
104  implementation  implementation
105    
106  uses  uses
107          Y_TextConverter, MojuUtils;          Y_TextConverter, MojuUtils, HTMLCreate;
108    
109  constructor TDownloadThread.Create(CreateSuspended: Boolean);  constructor TDownloadThread.Create(CreateSuspended: Boolean);
110  begin  begin
# Line 1353  begin Line 1353  begin
1353                                  Body.SaveToFile(FileName);                                  Body.SaveToFile(FileName);
1354    
1355                                  if ThreadItem.Title = '' then begin                                  if ThreadItem.Title = '' then begin
1356                                          DivideStrLine(Body[0], @Res);                                          THTMLCreate.DivideStrLine(Body[0], @Res);
1357                                          ThreadItem.Title := Res.FTitle;                                          ThreadItem.Title := Res.FTitle;
1358                                  end;                                  end;
1359                                  ThreadItem.Size := 0;                                  ThreadItem.Size := 0;

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26