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.4 by yoffy, Fri Nov 21 17:24:50 2003 UTC revision 1.5 by yoffy, Mon Nov 24 10:50:01 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 := BBSsFindBoardFromTitle(Title);                                                  Board := BBSs[ 0 ].FindBoardFromTitle(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.4  
changed lines
  Added in v.1.5

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