| 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; |
| 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; |