Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

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

revision 1.3 by h677, Sun Oct 5 14:31:47 2003 UTC revision 1.4 by yoffy, Fri Nov 21 17:24:50 2003 UTC
# Line 240  begin Line 240  begin
240                                          if i <> 0 then begin                                          if i <> 0 then begin
241                                                  URL := Copy(tmp, 1, i - 1);                                                  URL := Copy(tmp, 1, i - 1);
242                                                  Title := Copy(tmp, i + 1, Length(tmp));                                                  Title := Copy(tmp, i + 1, Length(tmp));
243                                                  Board := BBS2ch.FindBoardFromTitle(Title);                                                  Board := BBSsFindBoardFromTitle(Title);
244                                                  if Board = nil then begin                                                  if Board = nil then begin
245                                                          MessageMemo.Lines.Add('新板追加「' + Title + '(' + URL + ')」');                                                          MessageMemo.Lines.Add('新板追加「' + Title + '(' + URL + ')」');
246                                                          ini.WriteString(cate, Title, URL);                                                          ini.WriteString(cate, Title, URL);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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