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.7 by h677, Mon Jan 19 11:33:18 2004 UTC revision 1.8 by h677, Tue Jan 27 14:49:48 2004 UTC
# Line 173  var Line 173  var
173          idx: Integer;          idx: Integer;
174          idx1: Integer;          idx1: Integer;
175          idx2: Integer;          idx2: Integer;
176        n: Integer;
177          tmp: string;          tmp: string;
178          URL: string;          URL: string;
179          Title: string;          Title: string;
# Line 224  begin Line 225  begin
225    
226                                          if (tmp = 'おすすめ') or                                          if (tmp = 'おすすめ') or
227                                                   (tmp = '特別企画') or                                                   (tmp = '特別企画') or
228                                                   //(tmp = 'まちBBS') or                                                   (tmp = 'まちBBS') or
229                                                   (tmp = 'チャット') or                                                   (tmp = 'チャット') or
230                                                   (tmp = 'お絵かき') or                                                   (tmp = 'お絵かき') or
231                                                   (tmp = '運営') or                                                   (tmp = '運営') or
# Line 250  begin Line 251  begin
251                                                  if i <> 0 then begin                                                  if i <> 0 then begin
252                                                          URL := Copy(tmp, 1, i - 1);                                                          URL := Copy(tmp, 1, i - 1);
253                                                          Title := Copy(tmp, i + 1, Length(tmp));                                                          Title := Copy(tmp, i + 1, Length(tmp));
254                                                          Board := BBSs[ 0 ].FindBoardFromTitle(Title);                              Board := BBSs[ 0 ].FindBoardFromTitle(Title);
255                                                          if Board = nil then begin                              if Board = nil then begin
256                                                                  MessageMemo.Lines.Add('新板追加「' + Title + '(' + URL + ')」');                                  MessageMemo.Lines.Add('新板追加「' + Title + '(' + URL + ')」');
257                                                                  ini.WriteString(cate, Title, URL);                                  ini.WriteString(cate, Title, URL);
258                                                                  Change := True;                                  Change := True;
259                                                          end else begin                              end else begin
260                                                                  if Board.URL <> URL then begin                                  if Board.URL <> URL then begin
261                                                                          MessageMemo.Lines.Add('URL変更「' + Board.Title + '(' + URL +')」');                                          MessageMemo.Lines.Add('URL変更「' + Board.Title + '(' + URL +')」');
262                                                                          ini.WriteString(cate, Title, URL);                                      ini.WriteString(cate, Title, URL);
263                                      oldURLs.Add(Board.URL);                                      oldURLs.Add(Board.URL);
264                                                                  newURLs.Add(URL);                                      newURLs.Add(URL);
265                                                                          Change := True;                                      Change := True;
266                                                                  end else begin                                  end else begin
267                                                                          ini.WriteString(cate, Title, URL);                                          ini.WriteString(cate, Title, URL);
268                                                                  end;                                  end;
269                                                          end;                              end;
270                                                  end else begin                                                  end else begin
271                                                          s := Copy(s, idx2 + 2, Length(s));                                                          s := Copy(s, idx2 + 2, Length(s));
272                                                          Continue;                                                          Continue;

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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