Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoardURL.pas

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

revision 1.1 by h677, Thu Jan 4 13:11:38 2007 UTC revision 1.2 by h677, Sun Sep 9 07:11:58 2007 UTC
# Line 47  var Line 47  var
47      sec : TStringList;      sec : TStringList;
48  begin  begin
49      sec := TStringList.Create;      sec := TStringList.Create;
50      ini := TMemIniFile.Create(GikoSys.GetBoardFileName);      try
51      ini.ReadSections(sec);          ini := TMemIniFile.Create(GikoSys.GetBoardFileName);
52            try
53                ini.ReadSections(sec);
54    
55      CategoryComboBox.Clear;              CategoryComboBox.Clear;
56      CategoryComboBox.Items.BeginUpdate;              CategoryComboBox.Items.BeginUpdate;
57      for i := 0 to sec.Count - 1 do begin              for i := 0 to sec.Count - 1 do begin
58          CategoryComboBox.Items.Add(sec[i]);                  CategoryComboBox.Items.Add(sec[i]);
59      end;              end;
60      CategoryComboBox.Items.EndUpdate;              CategoryComboBox.Items.EndUpdate;
61      CategoryComboBox.ItemIndex := 0;              CategoryComboBox.ItemIndex := 0;
62    
63      ResultMemo.Lines.Clear;              ResultMemo.Lines.Clear;
64            finally
65                if ini <> nil then begin
66                    ini.Free;
67                end;
68            end;
69        finally
70            if sec <> nil then begin
71                sec.Free;
72            end;
73        end;
74  end;  end;
75    //! デストラクタ
76  procedure TNewBoardURLForm.SearchButtonClick(Sender: TObject);  procedure TNewBoardURLForm.SearchButtonClick(Sender: TObject);
77  var  var
78      i : Integer;      i : Integer;
# Line 186  begin Line 198  begin
198          keys := TStringList.Create;          keys := TStringList.Create;
199          try          try
200              ini := TMemIniFile.Create(GikoSys.GetBoardFileName);              ini := TMemIniFile.Create(GikoSys.GetBoardFileName);
201              ini.ReadSection(sec, keys);              try
202              for i := 0 to keys.Count - 1 do begin                  ini.ReadSection(sec, keys);
203                  urls.Add(ini.ReadString(sec, keys[i], ''));                  for i := 0 to keys.Count - 1 do begin
204                        urls.Add(ini.ReadString(sec, keys[i], ''));
205                    end;
206                finally
207                    ini.Free;
208              end;              end;
209          finally          finally
210              keys.Free;              keys.Free;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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