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.23 by h677, Sat Dec 17 03:41:22 2005 UTC revision 1.24 by h677, Tue Dec 20 15:19:50 2005 UTC
# Line 71  begin Line 71  begin
71                  EditIgnoreListsButton.Enabled := False;                  EditIgnoreListsButton.Enabled := False;
72                  URL := BoardURLComboBox.Text;                  URL := BoardURLComboBox.Text;
73                  GikoSys.ParseURI(URL, protocol, host, path, document, port, bookmark);                  GikoSys.ParseURI(URL, protocol, host, path, document, port, bookmark);
                 Writeln(protocol);  
74                  if (protocol = '') then begin                  if (protocol = '') then begin
75                          Item.FContent := BoardLoardFromFile(URL);                          Item.FContent := BoardLoardFromFile(URL);
76                  end else if (AnsiPos('http', protocol) > 0) then begin                  end else if (AnsiPos('http', protocol) > 0) then begin

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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